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1.  INTRODUCTION 

1.1  Background 

i 

\  " 

The  Remand  for  predicting  field  work  conditions  or  off-road  trafficability 
comes  from  agricultural,  civil  and  military  sectors.  The  spatial  and 
temporal  resolution  of  predictions  is  dependent  upon  application.  For 
instance,  the  prediction  of  off-road  conditions  across  an  area  of  200  km2 
in  20  days  time  for  the  passage  of  a  large  number  of  vehicles  will  be  very 
different  from  predicting  how  soon  those  same  vehicles  can  cross  an  area 
of  10  km2  in  the  next  36  hours  without  being  bogged  down. 

At  the  present  time  there  are  three  main  types  of  models  used  for 
predicting  off-road  conditions  for  the  specific  application  to  vehicle 
behaviour:- 


1.1.1  Empirical  Agricultural  Models 

Within  agriculture  there  is  a  need  to  consider  the  degree  of  compaction  a 
given  type  of  vehicle  may  cause  on  a  particular  soil.  Empirical 
relationships  have  been  developed  (Raghavan  and  McKyes,  1978)  which  for 
four  soil  types  predict  soil  density  (considered  to  be  the  dependent 
variable): 

3  f(moisture  content,  tyre  slip,  contact  pressure,  number  of  passes, 
depth  and  distance) 


i* 


Further  studies  (Rhagavan  et  al.,  1 979,  Huck  et  al.,  1 975,  Taylor,  1971, 
Campbell,  1982)  show  that  It  is  relatively  easy,  if  demanding  of  data,  to 


extend  the  analysis  into  an  examination  of  traffic-soil-plant 
relationships.  This  will  be  of  great  importance  in  predicting  plant  root 
damage  caused  by  the  operation  of  agricultural  vehicles. 

Studies  by  Dyer  (1980)  based  on  the  empirical  Versatile  Soil  Moisture 
Budget  -  Version  Three,  linked  with  historic  meteorological  data, 
attempts  to  predict  workday  information  across  Canada.  This  scheme  is 
reviewed  in  more  detail  in  section  2.3 

1.1.2  Empirical  Military  Models 

A  review  of  soil  trafficabllity  prediction  undertaken  by  the  U.S.  Corps  of 
Engineers  (1967)  highlighted  soil  moisture  -  soil  strength  relationships 
(e.g.  Collins,  1967;  Moltham,  1967).  The  estimation  of  these  two 
environmental  variables  and  their  inter-relationship  is  central  to  these 
ty^e  of  trafficabllity  models.  These  models  based  the  trafficability 
predictions  through  the  calculation  of  the  rating  cone  index  (RCI) 
relationship  developed  by  Collins  (1971)  and  is  defined  by: 

In  RCI  -  4.605  -  2.123  +  0.008(C)  -  0,695  In  M 

0, 149  +  0.002(C)  eq.  1.1 


where  M  =  moisture  content  (  %  dry  weight) 
C  «  percentage  clay 


RCI  values  were  established,  below  which  specified  vehicles  could  not 


complete  more  than  50  passes.  These  RCI  values  were  known  as  the 


vehicle  cone  index  (VCI50)  for  the  vehicle  and  therefore  predictions  of  RCI 
could  be  related  to  vehicle  mobility. 

To  date  the  U.S.  Army  Corps  of  Engineers  has  utilized  the  soil  moisture 
strength  prediction  model  (SMSP)  developed  by  Smith  and  Meyer  (1973)  to 
predict  RCI.  The  SMSP  model  predicts  soil  moisture  on  a  daily  basis  from 
empirical  bookkeeping  relationships,  with  seasonal  constraints  which  then 
link  with  empirical  relationships  In  the  form  of  equation  1.1. 

There  Is  also  available  models  predicting  the  effect  of  terrain  on  vehicle 
mobility  and  part  of  their  input  requirements  include  RCI.  These  models 
Include  th°  Army  Mobility  Model  (AAM),  the  DMA/ETL  Cross-Country 
Movement  (CCM);  and  further  improvements  include  a  computerized 
condensed  AMM  system  (CAMMS)  by  Turnage  and  Smith,  1983.  The  SMSP 
model  and  its  linking  with  mobility  models  is  discussed  in  more  detail  in 
section  2.2. 


KL3.  Dfilermlnlstlc  Models 

The  use  of  the  mechanical  properties  of  the  soil,  i.e.  soil  density,  cohesion 
and  angle  of  internal  friction,  in  predicting  cone  index  has  been  developed 
by  Rohani  and  Baladi,  1981.  The  Inclusion  of  moisture  content  could  lead 
to  a  physically  based  alternative  to  equation  1.1  A  deterministic 
off-road  trafficabllity  prediction  model  does  not  at  this  stage  exist 
though  a  physically  based  infiltration  scheme  combined  with  the  empirical 
relationship  give  by  equation  1.1  has  been  developed  by  Anderson,  1983, 
and  is  described  in  sections  3.2,  3.4  and  4.1  A  physical  ly  based 
infiltration  scheme  developed  by  Clapp,  1982,  is  reviewed  in  section  2.5 


and  assessed  for  its  potential  to  solve  the  requirements  set  out  in 

section  1.2. 

The  desire  for  a  new  system  is  either  because  there  is  no  existing  system 
or  there  is  a  major  problem  or  restriction  with  the  old  system.  The  three 
types  of  trafficability  models  discussed  above,  and  the  schemes  which 
exist  indicate  that  application  of  off-road  trafficability  studies  have 
always  been  on  a  long  time  base,  i.e.  output  from  the  empirical  models  is 
always  on  a  daily  basis.  The  scenario  set  at  the  beginning  of  this  section 
where  information  on  how  soon  vehicles  can  cross  a  given  area  in  the  next 
36  hours  is  not  catered  for.  The  only  attempt  at  a  variable  temporal 
resolution  model  is  that  of  Andersons'  (1983)  and  it  is  this  model  that  is 
further  developed  in  this  project. 

It  is  evident  that  a  new  physically  based  system  is  necessary  which  has 
variable  temporal  and  spatial  resolution,  firstly  because  there  is  no 
satisfactory  existing  system,  and  secondly,  because  there  are  major 
restrictions  with  the  old  empirical  schemes.  The  first  step  in  the 
development  of  a  project  is  to  set  out  what  the  project  aims  to  do 
(section  1.2)  and  the  strategy  adopted  (section  1.4)  to  fulfil  those 
aims. 


The  requirements  of  any  project  may  be  defined  through  analyzing  the 
problem  to  determine  its  nature.  A  requirement  is  a  feature  of  the 
system,  or  a  description  of  a  facility  the  system  is  capable  of  doing  in 
order  to  fulfil  the  system's  purpose.  The  main  purpose  of  this  project  is 
‘to  develop  an  operational  system  to  predict  off-road  trafficability  on  a 
km2  scale  for  application  to  route  management  problems’. 

The  following  general  requirements  are  the  first  stage  in  the  overall 
strategy  for  the  project's  development.  The  requirements  are  also  shown 
in  figure  1.1  under  various  categories  of  requirement  type. 


1.2.1a  To  develop  an  operational  system  to  predict  off-road  trafficability 
on  a  km2  scale. 

1.2.1b  To  develop  a  deterministic  off-road  trafficability  model,  and  hence 
one  requiring  no  calibration. 

1.2.1c  To  construct  a  predictive  scheme  with  variable  temporal 
resolution. 

1.2.  Id  To  develop  a  physically  based  system  for  predicting  various 
environmental  factors,  e.g.  soil  moisture  and  soil  strength. 

1.2.1e  To  develop  a  facility  capable  of  handling  a  steep  area  that  may  be 
highly  vegetated. 

1.2.  If  To  develop  a  system  in-which  the  predicted  off-road  trafficability 
can  be  applied  to  route  management  problems. 

1 .2. 1  g  To  develop  a  system  requiring  only  readily  available  input  data. 


a 


The  genera)  requirements  listed  above  will  be  further  refined  in  sections 
3,4, and  5.  The  concept  of  requirement  definition  linked  with  a  top-down 
approach  is  discussed  in  section  1.4.1. 

The  design  of  the  entire  BORTS  system  (figure  1 .3)  has  been  based  on  the 
definition  of  the  general  requirements  and  the  subsequent  refinement  of 
these  requirements  in  sections  3,4  and  5,  plus  the  development  strategy 
outlined  in  section  1.4.  The  large  range  of  the  requirements  have  led  to 
two  models  for  predicting  off-road  traff icabtlity.  These  are  the  Bristol 
Soil  Strength  Scheme  (BSSS)  which  solves  the  specific  requirements 

3.2. 1 ,  3.4. 1 ,  4.1.1,  4.2. 1  and  4.3. 1 ,  and  an  adapted  scheme  -  the 
Variable  Source  Area  Simulator  (VSAS2)  solving  the  specific  requirement 

3.3. 1 .  The  components  of  these  two  models  are  described  in  sections  3 
and  4.  Section  5  describes  the  application  of  off-road  traff icabilfty  to 
route  management. 

This  section  is  represented  in  figure  1.2  as  stage  1  -  a  problem  was 
posed  and  the  needs  determined. 


What  is  the 
problem? 


What  Is  the 
solution? 


What  are  the 
methodologies 
that  best 
implement  the 
solution? 


How  is  the 

solution 

constructed? 


Is  the  problem 
solved? 


Can  the  solution 
be  used? 


Are  enhancements 
needed? 


Determine 

needs. 


Design  a  solution  to 
solve  a  perceived 
problem. 


Specify  algorithms 
and  data  structures 
to  implement  the 
solution. 


Write  code  that  implements 
the  design  and  integrates 
code  modules  into  a  working 
system. 


Test  code  and  system. 


Write  documents  to 
describe  the  system. 

Train  users  and  operators. 


Modify  and  enhance  the 
system  as  necessary 
or  desirable. 


As  stated  in  section  1.1  the  desire  for  a  new  system  is  either  because 
there  is  no  existing  system  or  there  is  a  major  problem  with  the  old 
system.  In  this  project  the  U.5,  Corps  of  Engineers  SMSP  model  is 
considered  as  the  'old'  system  and  is  discussed  in  section  2.2.  It  is 
considered  unsatisfactory  for  several  reasons,  and  these  may  be 
summarized  as  follows:- 

1.3a  the  scheme  is  entirely  empirical  and  therefore  Inflexible  with 
respect  to  temporal  resolution, 

1.3b  the  scheme  is  inflexible  with  regards  attempts  to  up-grade,  and 
therefore  cope  with  phenomena  such  as  hourly  variations  of 
evaporation, 

1.3c  the  data  required  to  run  the  scheme  includes  empirical  relationships 
that  are  difficult  to  evaluate  especially  for  the  non-expert,  and 
1.3d  results  from  the  SMSP  indicate  some  peculiarities  when  predicting 
RCI  values  from  initial  moisture  categories  of  very  wet  and  very  dry. 
Tracing  these  peculiarities  in  an  empirical  scheme  will  be  a  difficult 
job. 

Having  realized  the  restrictions  of  the  'old'  scheme  it  should  also  be 
pointed  out  that  strictly  the  SMSP  scheme  is  very  different  from  the 
system  proposed  in  section  1.2.  In  fact,  it  could  almost  be  said  that  the 
only  scheme  approaching  the  requirements  set  out  in  section  1.2  is  that 
of  Anderson's  (1983).  It  is  therefore  proposed  to  develop  a  new  system 
based  on  Anderson's  model  but  with  the  following  new  aspects:- 

l.3e  new  deterministic,  physically  based  soil  moisture  -  soil  strength 
routine, 
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l.3f  corrected  and  improved  evaporation  routine  with  respect  to  inclusion 
of  albedo, 

l.3g  improved  data  requirements  -  data  bank  development,  and 
1.3h  user  friendliness  operation  of  system. 


The  project  requirements  have  also  led  to  the  new  development  of  the 
following:- 

1.31  the  adaptation  of  an  existing  scheme  to  deal  with  steep  slopes, 
convergence  of  flow  and  highly  vegetated  areas, 

1 .3 j  the  development  of  a  route  management  scheme, 

1.3k  the  application  of  the  scheme  to  existing  mobility  models,  e  g.  the 
Ministry  of  Defence's  DRiVEB  model, 

1.31  the  development  of  a  system  that  is  menu  driven,  system  prompted 
and  with  basic  system  checks, 

1.3m  the  development  of  documentation  and  code  that  will  allow  easy 
maintenance  and  alterations  by  new  developers,  and 
1.3n  the  formulation  of  guidelines  on  which  scheme  to  predict  RCI  should 
be  used  under  which  environmental  conditions. 

This  is  a  first  attempt  to  develop  such  a  system,  and  as  such  will  provide 
an  insight  into  the  problem  area.  The  development  and  initial  results  have 
produced  a  well  defined  directive  for  the  project  after  this  development 

period  (section  10). 


The  development  of  any  computer  system  requires  the  adoption  of  a 
logical,  clearly  defined  strategy  which  incorporates  a  progressive  building 
block  technique.  This  is  represented  in  figure  1.2  as  a  series  of  seven 
work  stages.  As  shown  in  figure  1.2,  each  stage  is  described  by  a  titl* ,  a 
question  and  the  action  necessary  at  that  specific  stage  to  solve  the 
problems.  Once  each  stage  has  been  completed,  the  developer  can  start  the 
next  stage  -  though  often  it  is  necessary  to  return  to  a  previous  stage  for 
re-assessment  and  adjustment  of  the  solution.  All  adjustments  and  their 
interrelationships  with  other  elements  of  the  solution  must  be  traced 
through  all  subsequent  stages.  The  following  section  describes  the  stages 
shown  in  figure  1.2  in  more  detail. 

1.4.1  Stage  One:  Requirements  Definition 

Prior  to  the  design  of  any  system  the  developer  must  understand  the 
system's  purpose.  This  starts  with  an  examination  of  requirements 
(section  1.2).  The  requirements  of  any  project  may  be  defined  through 
analyzing  the  problem  to  determine  its  nature.  A  requirement  is  a  feature 
of  the  system,  or  a  description  of  a  facility  the  system  is  capable  of  doing 
In  order  to  fulfil  the  system’s  purpose. 

Throughout  this  project  a  'top-down'  approach  has  been  adopted.  With 
respect  to  the  requirements  of  the  project  this  means  that  initially  the 
requirements  or  objectives  have  been  expressed  at  the  very  highest  level 
in  general  terms  (figure  1.1);  then  at  subsequent  levels  the  requirements 
are  made  more  specific  (sections  3,4  and  5).  For  example,  high  level 
requirement  1.2a  states  that  the  system  should  be  ’operational',  lower 


levels  of  definition  restate  the  requirement  In  specific  terms  of 
parsimonious  data  requirements,  readily  available  data,  and  menu  driven 
system  operation. 


in  this  requirements  analysis,  we  have  determined  exactly  what  problems 
need  a  solution.  The  requirements  have  been  satisfactorily  specified  and 
understood  by  the  developer,  now  the  next  stage  of  system  design  can 
begin. 


1.4.2  Stage  Two:  System  Design 

The  specification  of  the  system  requirements  allows  the  developer  to 
translate  those  requirements  into  a  system  that  will  satisfy  the  project's 
needs.  It  is  this  translation  of  the  problem  into  a  description  of  the 
solution  that  is  known  as  system  design. 

For  each  component  of  the  system  there  may  be  more  than  one  solution.  An 
assessment  of  existing  and  specially  devised  solutions  Is  a  necessary 
sub-stage  of  the  system  design.  The  development  of  the  system  design  in 
section  6  follows  on  logically  from  the  technical  descriptions  of  the 
major  system  components  in  sections  3,4  and  5. 

A  top-down  approach  has  also  been  adopted  to  aid  the  process  of  system 
design.  As  shown  in  figure  1.3  the  design  has  been  separated  into 
composite  parts  known  as  design  modules.  Each  module  Is  a  working 
entity  having  specified  sets  of  input  and  output.  Working  in  a  top-down 
manner  the  design  should  ensure  that  all  information  entering  the  system 
is  completely  defined,  all  functions  are  specified;  and  that  output  from  the 
system  is  that  required  by  either  the  user  or  other  systems,  The  fourth 


level,  or  bottom  level,  modules  shown  in  figure  1.3  are  where  the  actual 
functions  are  carried  out  and  these  are  detailed  in  section  6  along  with 
information  on  how  the  components  link  together  in  each  module  and  how 
the  modules  interrelate. 

The  completion  of  the  system  design,  that  is,  an  explanation  of  exactly 
how  the  system  will  work  in  terms  of  data  flow  and  transformation, 
allows  the  developer  to  translate  it  into  a  program  design. 

1.4.3  Stage  Three:  Program  Design 

The  system  design  does  not  allow  the  developer  to  write  program  code 
directly  from  its  description.  The  design  modules  and  their 
inter-relationships  now  have  to  be  further  specified  in  terms  that  are 
instructions  for  the  programmer.  The  program  specifications  have  been 
written  in  pseudo  code’  as  an  intermediate  stage  between  the  English 
system  design  description  and  the  program  code.  Section  6  details  the 
program  design  and  tabulates  the  pseudo  code  for  each  algorithm  to  be 
included  in  each  design  module. 


1.4.4  Stage  Five:  Program  Implementation 

The  design  is  now  ready  to  be  translated  into  program  code  which 
functions  correctly  and  preserves  the  desirable  design  characteristics. 
The  characteristics  included  in  the  system  design  and  refined  in  the 
program  design  (such  as  distinct  modularity,  well  defined 
interrelationships  etc.)  should  be  inherent  in  the  program  or  programs 
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wrltten,  so  that  all  algorithms,  subroutines,  functions  and  data  structures 
can  be  easily  traced  from  the  system  design  to  program  implementation 
and  vice  versa. 

The  code  has  been  written  (Appendix  B)  in  small  separate  subroutines  all 
of  which  are  cross-referenced  with  the  program  design  in  section  6.  A 
system  of  naming  each  subroutine  according  to  the  design  module  it  is  a 
component  of  has  been  adopted  to  make  the  task  of  future  development  a 
much  easier  task.  It  should  be  remembered  that  the  general  purpose  of 
the  system  being  developed  in  this  project  is  unlikely  to  change  throughout 
the  software  development  period  and  for  sometime  afterwards.  However, 
modifications  and  enhancements  in  the  nature  of  the  system  might  be 
necessary.  This  programming  style  or  manner  easily  allows  the  addition, 
replacement  or  up-grading  of  subroutines  with  ease  and  suggestions  for 
Improvement  are  discussed  in  section  10 

The  programs  now  coded  in  FORTRAN  (Appendix  B)  require  to  be  tested  to 
see  whether  they  work  as  intended. 


The  testing  of  the  programs  is  split  up  into  several  sections  and  the 
methodologies  of  testing  used  in  this  project  have  been:- 

1.4.5. 1  Defective  software ,  where  there  is  a  software  error  This 
usually  means  that  the  software  does  not  do  what  the  requirements 
specified.  These  errors  must  be  traced,  and  are  normally  of  the  following 
types: 
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(a)  the  requirements  specification  may  be  wrong,  i.e  It  is  not  really  what 
is  wanted, 

(b)  the  requirements  specification  may  be  computationally  or  physically 
impossible, 

(c)  the  system  design  may  be  faulty, 

(d)  the  program  design  may  be  faulty,  and 

(e)  the  code  Itself  may  be  wrong. 

1. 4.5.2  Unit  testing,  where  after  the  code  has  been  examined  for  errors, 
each  subroutine  and  then  module  is  compiled  and  run  with  test  data  to 
search  for  other  errors.  Finally,  the  entire  system  is  compiled  and  run 
with  test  data. 

1. 4.5.3  Program  review ,  which  explains  in  words,  diagrams  and  technical 
terms  what  each  program  is  supposed  to  do  in  code. 

1. 4.5.4  Proving  programs  correct ,  where  through  unit  testing,  a  program 
is  correct  if  it  implements  the  specifications  of  the  program  design  and 
interfaces  properly  with  the  other  modules. 

It  is  important  to  realize  that  no  system  is  ever  error  free'  and 
international  Systems  ,  Inc.,  Pennsylvania  state  in  their  "Laws  of  Project 
Management"  that  'No  system  is  ever  completely  debugged.  Attempts  to 
debug  a  system  inevitably  introduce  new  bugs  that  are  even  harder  to  find' 

Test  input  data  has  been  designed  so  that  the  output  demonstrates 
something  about  the  behaviour  of  the  program  (sections  9  and  10).  To 
test  a  module  the  input  data  and  conditions  must  allow  the  program  to 


manipulate  that  data,  and  observe  the  output  from  the  program.  During 
initial  development  the  system  is  often  set-up  to  provide  an  abundance  of 
extra  intermediate  output  information  to  aid  in  locating  software  errors. 


Comparisons  have  been  made  with  an  existing  scheme  as  an  initial 
methodology  of  model  validation  and  are  discussed  in  section  10.  The 
entire  system  is  now  ready  for  stage  six  -  that  of  delivery. 

1.4.6  Stage  Six.  Delivery 

The  main  component  of  the  delivery  of  the  system  developed  in  this 
project  is  that  of  writing  an  effective  documentation.  This  is  aimed  at 
two  levels  ,  firstly  at  the  user,  and  secondly,  at  the  developer  or  operator. 
This  report  covers  both  these  aims  by  following  the  development  strategy 
discussed  in  this  section  and  outlined  in  figure  1.2. 

As  shown  in  figure  1.2  the  delivery  also  includes  training  users, 
therefore  a  'hands  on  user  guide'  has  been  developed  along  with  test  data. 
This  is  detailed  in  section  9.  Instructions  for  the  operator  are  given  in 

Appendix  C. 


1.4.7  Stage  Seven:  Maintenance 

Section  10  discusses  some  initial  results  which  in  turn  permits  a 
prescription  for  further  enhancements  to  the  system  to  be  written.  The 
code  description,  program  design  and  system  design  detailed  in  this  report 
should  help  in  the  correction  of  errors,  inclusion  of  new  components, 
perfection  of  existing  components  and  of  course  prevention  of  future 


The  quality  of  software  and  systems  is  reflected  in  their  characteristics. 
The  characteristics  required  for  high  quality  depend  on  who  is  assessing 
the  system.  A  user  will  assess  software  to  be  of  high  quality  if  it  does 
what  they  want  it  to  do  and  is  easy  to  learn  and  use.  A  designer  and 
maintainer  will  look  for  a  design  and  code  that  is  easy  to  test  and 
maintain.  The  characteristics  considered  to  be  important  in  the  quality 
design  of  this  project  are  as  follows: 

1.4.8a  Usefulness.  The  software  system  must  be  useful.  Firstly,  it  must 
do  what  is  required  of  it.  Secondly,  it  must  be  easy  for  the 
maintainer  to  locate  the  source  of  an  error,  find  the  modules  where 
a  particular  function  is  coded,  trace  the  code  and  modify  and  add 
other  subroutines. 

1.4.8b  Reliability.  The  system  must  produce  the  correct  result  to  the 
correct  degree  of  accuracy. 

1.4.8c  Accessibility.  The  system  must  perform  its  functions  in  a  timely 
manner  and  therefore  data  should  be  available  when  needed  and  the 
system  should  respond  to  the  user  in  a  reasonable  amount  of  time. 
1.4.8d  Human  compatibility.  The  users  and  developers  must  find  the 
system  easy  to  learn  and  use.  This  might  be  the  most  important 
characteristic  of  the  system.  A  system  that  while  performing  its 
functions  perfectly  is  impossible  for  the  users  to  understand,  can 
only  be  considered  as  a  failure. 

The  development  of  the  software  system  has  attempted  to  follow  the 
strategy  outlined  in  this  section  and  to  make  these  characteristics  of  high 
quality  software  inherent  within  the  structure. 


The  scope  of  this  report  is  to  document  ail  the  stages  shown  in  figure  1.2 
and  discussed  in  section  1.4,  The  background,  general  requirements,  the 
developmental  strategy  adopted  and  originality  of  the  project  are  all 
discussed  in  section  I,  A  review  of  existing  schemes  is  addressed  in 
section  2.  The  development  of  the  new  system  is  detailed  in  sections 
3,  4,  and  5.  A  system  description  listing  the  system  entities,  attributes 
and  their  relationships  with  each  other  is  given  in  section  6.  Guidelines 
for  the  user  are  given  in  section  7  and  a  ‘hands  on '  user  guide  is  provided 
in  section  9. 

The  restrictions  and  assumptions  of  the  main  components  of  the  system 
are  set  out  in  section  8.  These  restrictions  along  with  some  initial 
results  and  a  discussion  of  the  development,  leads  to  a  written 
prescription  for  future  development  of  the  system  in  section  10. 

i  he  program  code  and  test  data  are  given  in  Appendix  B  along  with 
compilation  instructions  for  the  operator  in  Appendix  C.  The  definition 
of  some  of  the  terms  used  in  this  report  are  given  in  Appendix  A, 


Before  defining  the  proposals  for  a  new  system  it  is  vital  to  examine  how 
successful  existing  systems  are.  Are  users  happy  with  their  existing 
software  and  systems?  Can  the  systems  be  extended  to  be  used  for 
slightly  different  applications?  The  answer  is  yes  and  no. 

Often  systems  work,  but  not  exactly  as  expected,  For  instance,  the 
peculiarities  encountered  when  the  SMSP  model  has  initial  moisture 
categories  of  very  wet  and  very  dry  but  appears  to  work  well  for  the  other 
initial  moisture  contents  (results  from  SMSP  model,  1987,  section 
10.3.1) 

The  system  may  work  for  the  first  scenario  given  in  section  1.1,  where 
information  regarding  trafficability  20  days  ahead  is  required.  But,  the 
second  scenario,  where  information  is  required  over  the  next  36  hours,  at 
say  hourly  intervals,  is  impossible  for  the  system  to  cope  with. 

Having  decided  that  there  is  a  gap  in  the  capabilities  of  existing  systems, 
a  well  defined  set  of  requirements  is  drawn  up.  In  the  desire  to  produce  a 
system  of  acceptable  quality  and  utility  an  approach  strategy  has  to  be 
adopted.  This  has  been  described  in  sectton  1.4,  though  it  is  important  to 
understand  the  difference  between  good'  and  bad'  software. 

The  characteristics  of  software  and  system  quality  depends  on  who  is 
analyzing  it.  A  developer  will  assess  in  terms  of  the  following: 

1.6a  How  easy  is  it  to  design,  code,  test  and  maintain? 

1.6b  Is  it  efficient  in  terms  of  computer  usage? 


A  user  will  assess  In  terms  of  the  following: 

1.6c  Will  it  do  what  I  want  it  to  do? 

1.6d  Is  it  easy  to  learn  and  use? 

Hence,  it  can  be  seen  that  high  quality  software  and  systems  have 
characteristics  that  are  addressed  to  the  requirements  of  the  users, 
developers  and  maintained.  The  following  report  documents  the 
development  of  the  proposed  system  (section  1.2),  and  through  the 
adoption  of  a  logical  clearly  defined  development  strategy  incorporate 
high  quality  for  the  users,  developers  and  maintained. 


The  prediction  of  soil  moisture  and  soil  strength  is  not  a  new  concept 
There  are  many  models  which  attempt  to  predict  soil  moisture  at 
prescribed  temporal  and  spatial  resolutions.  There  are  also  several 
models  which  link  soil  moisture  and  soil  strength  characteristics  to 
predict  soil  strength.  This  section  reviews  four  models,  two  of  which 
were  designed  specifically  for  off-road  traff icability  prediction,  while 
the  other  two,  although  designed  for  different  purposes,  could  be  linked 
with  appropriate  submodels  to  predict  off-road  traff  icability. 

The  first  model  discussed  is  the  ‘Automatic  Mode)  for  Predicting  Soil 
Moisture  and  Soil  Strength'  (SMSP  model)  developed  by  Smith  and  Meyer 
(1973)  for  the  U  S.  Corps  of  Engineers  (section  2.2).  The  SMSP  model 
predicts  daily  soil  moisture  and  strengths  of  soil  layers  0-15cms  and 
l5-30cms.  It  is  an  empirically  developed  model  and  is  currently  used  by 
the  U.S.  Corps  of  Engineers  for  off-road  traff  Icability  prediction. 

The  second  model  discussed  is  the  ‘Versatile  Soil  Moisture  Budget  - 
Version  1 1 1'  ( VB  1 1 1 )  developed  by  Dyer  and  Mack  ( 1 984)  for  use  by  the 
Canadian  Department  of  Agriculture  (section  2.3).  The  VB  III  predicts 
daily  soil  moisture  contents  through  the  profile.  By  linking  current  status 
of  the  areas  to  be  modelled  with  'typical'  or  'worst'  scenario  historic 
meteorological  data,  the  model  predicts  the  soil  water  status  for  large 
areas  of  agricultural  land  for  up  to  three  months  ahead.  Predictions  are 
updated  every  week.  It  is  an  empirically  developed  model  and  is  currently 
used  by  the  Canadian  Department  of  Agriculture  for  predicting  drought  and 
work  day  analysis  used  in  their  aid  and  advice'  to  farmers  policy 


The  third  model  is  the  German  terrain  traff Icabtllty  model  developed  Oy 
Hanl  and  Tries  (1982)  for  evaluating  traff icability  of  tanks  with  respect 
to  weather  influence  (section  2.4).  The  Hanl  and  Tries  model  predicts 
daily  soil  moisture  and  categories  of  trafficability.  It  is  an  empirically 
developed  model  which  through  several  important  restrictions  (discussed 
in  sections  2.4  and  2.6)  is  simple  to  use. 

The  fourth  mode)  Is  the  'Wetting-Front  Model'  developed  by  Clapp  (1982). 
The  wetting-front  model  (section  2.5)  was  designed  to  predict  the 
locations  of  wetting-fronts  throughout  a  soil  profile  which  might  have 
layers  with  different  soil  characteristics.  It  includes  a  determination  of 
evaporation  from  the  soil  surface  which  would  be  useful  in  trafficability 
applications.  The  model  has  been  developed  on  deterministic  relationships 
and  the  significance  of  this  is  further  discussed  in  section  2.6. 

The  four  models  are  outlined  in  terms  of  their  design  and  input  data 
requirements.  They  are  evaluated  (section  2.6)  in  terms  of  their  ability 
to  fulfil  the  objectives  outlined  in  section  1.2.  By  reviewing  these  four 
models,  it  would  be  prudent  to  indicate  that  there  are  many  other  similar 
models  and  submodels  of  larger  schemes  which  predict  soil  moisture,  but 
it  becomes  apparent  that  to  fulfil  the  general  objectives  in  section  1.2, 
and  the  specific  objectives  detailed  in  sections  3.2. 1 ,  3.3. 1 ,  3.4. 1 , 
4.1.1,  4.2.1,  4.3.1,  5.2.1,  5.3.1  and  5.4.1,  that  these  four  models  are 
the  closest  to  the  proposed  scheme  to  be  considered  as  viable  alternatives 
The  SM5P  mode)  is  also  important  in  that  it  is  the  working  off-road 
trafficability  scheme  of  the  US.  Corps  of  Engineers  and  comparisons  with 
it  will  be  used  as  a  preliminary  form  of  verification  for  the  newly 
developed  scheme. 


The  SUSP  mode!  (figures  2. land  2.2)  determines  soil  moisture  using  a 
bookkeeping  procedure  working  on  a  daily  basis.  It  is  then  linked  with 
certain  soil  properties  to  predict  soil  strength  in  terms  of  cone  index  (Cl) 
and  rating  cone  index  (RCI).  Smith  and  Meyer  determined  through  empirical 
investigation  that  the  important  soil  layers  concerning  off-road 
trafficability  were  the  0-15  cms  and  15-30  cms  layers.  The  SMSP  is 
empirical  in  nature  and  subsequently  some  input  requirements  are  not 
always  easy  to  determine.  The  terrain  input  requirements  for  the  SMSP 
are  of  three  different  categories;- 

2.2. a  Specific  data  -  unique  characteristics  and  relationships  for  each 

site  to  be  considered. 

2.2. b  Estimated  data  -  averaged  or  estimated  data  from  similar  sites, 

field  measurements  and  relationships  developed  from  soil  property 
data  abstracted  from  a  large  number  of  sites. 

2.2c  Surface  composition  group  data  -  similar  to  2.2b  except  that 
relationships  are  developed  for  a  number  of  surface  composition 
groups  which  are  similar  to  the  soil  classes  of  the  Unified  Soil 
Classification  System  modified  to  permit  characterization  of  the 
entire  area. 

As  figure  2.1  shows,  the  other  major  input  requirements  are  that  of  daily 
precipitation,  wetness  index  and  the  dates  of  the  beginning  of  the 
different  seasons  (when  rates  of  depletion  change).  The  input  data 
requirements  are  further  detailed  in  table  2.1  and  used  for  the 
comparison  and  evaluation  of  the  four  models  in  section  2.6 
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Wetness  Index 


precipitaion  (daily) 
latitude 
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(b)  Soil  Information; 

soil  texture  maximum  water  content 

bulk  density  minimum  water  content 

Initial  soil  moisture  content 
first  layer  soil  moisture  content  storage  for  one  year 
second  layer  soil  moisture  content  storage  for  one  year 
minimum  precipitation  causing  accretion 


(c)  Coefficients; 

for  accretion  equations 

for  tentative  average  depletion  equations 

for  specific  depletion  relations 

for  moisture  -  strength  relationship 


(d)  Constants  and  Factors: 

for  cone  index  relations  for  site  depletion  factor 

for  maximum  and  minimum  equations  for  accretion  equation 


(e)  Variables: 

beginning  day  of  data 
beginning  month  of  data 
beginning  year  of  data 
number  of  days  in  each  month 
point  at  which  accretion  equation 


beginning  day  of  new  season 
beginning  month  of  new  season 
beginning  year  of  new  season 

is  modified 


The  governing  relationships  (figure  2.2)  of  the  SMSP  are  simple,  straight 
line  and  power  functions  derived  empirically  using  regression  techniques:- 


2.2.d  Accretion  relations: 

accretion  -  f  (precipitation,  amount  of  storage  space  available  in 
the  soil  for  absorbing  water,  soil  layer  in  profile,  season) 

2.2e  Depletion  relations: 

depletion  -  f  (soil  moisture  content  above  a  minimum  moisture 
content,  soil  layer  in  profile,  season) 

The  prediction  of  soil  strength  is  based  on  the  following  relationship: 

In  RCI  -  a  +  b  ln(MC)  eq.  2.2.1 

where  RC!  =  rating  cone  index 

MC  =  soil  moisture  content  (%) 

a&b  ■  user  supplied  constants  from  specific  or  estimated  data 

When  considering  surface  composite  groups  the  model  assumes  that  a 
straight  line  relationship  exists  between  In  RCI  and  In  MC.  The  equation 
for  this  straight  line  was  established  by  forcing  it  through  soil  moisture 
contents  at  a  RCI  of  300  and  Cl  of  200 

Output  from  the  SMSP  model  is  on  a  daily  basis  which  may  be  over  any  part, 
of  the  year  (or  several  years)  for  one  or  more  selected  years  of  extreme, 
unique  or  typical  rainfall  distributions.  There  is  no  option  for  a  shorter 
time  interval  between  outputs,  and  any  extension  to  a  new  site  must 
include  either  specific  or  estimated  relationships  and  input  data  The 


The  VB  III  model  was  originally  developed  from  the  simple  water  balance 
equations  of  Thornthwaite  and  Mather  ( 1 955)  to  the  multi-layer  budget  of 
Holmes  and  Robertson  (1959)  to  the  versatile  soil  budget  of  Baier  and 
Robertson  (1966).  The  VB  III  model  is  the  most  recent  improved  version  of 
the  versatile  budget  and  is  directed  at  the  agricultural  sector.  Estimates 
of  daily  soil  water  contents  based  on  present  and  past  weather  events 
provide  information  to  the  Canadian  farming  community  throughout  the 
growing  season  and  is  the  basis  to  field  workday  analyses  (Dyer  et  al., 
1978;  Dyer,  1980) 

The  basic  structure  of  the  model  is  described  by  the  flowchart  in  figure 
2.3  (from  Baier  et  al.,  1979).  The  soil  moisture  calculation  within  the 
cellular  structure  (figure  2.4)  may  be  described  by. 

51,  «  S1M  -  P,  -  POL,  -  PDLm  -  DF,_,  -  DRN 1 -  A5E  ,  eq.  2.3.1 

52,  =  S2,.,  ♦  DRN1 -  DRN2h  -  AERT,  -  DF,_,  eq.  2.3.2 

where  SI  &S2  -  plant  available  water  in  zones  l  and  2  respectively 
P  =  daily  rainfall 


PDL  =  water  left  on  surface 
DF  ■  water  diffused  between  zones 
DRN1  =  downward  drainage  from  zone  1 
DRN2  *  downward  drainage  from  zone  2 
ASE  =  actual  surface  evaporation 
i  =  day  number  (julian) 


Actual  daily  evapotranspiration  (AE)  may  be  described  by: 

AE,  »  ASE,  *  AERT,  eq.  2.3.3 

Root  extracted  water  (AERT)  is  given  by. 

AERT,  -  RTX  .  Z2  .  PE, .  (S2/C2)  eq.  2.3.4 

Actual  surface  evaporation  (ASE)  is  given  by: 

ASE,  =  (Z, .  PE, .  (S 1  /C 1 ))  -  AERT,  eq.  2.3.5 

where  Cl  &C2  =  available  water  capacities  of  zones  1  and  2 
respectively 

Z1  &  Z2  =  Z-table  (dryylng  curves)  values  to  describe  moisture 
retention  for  different  soil  types 
RTX  =  root  extraction  coefficient  (1  >  RTX  >  0) 


The  water  diffused  between  zones  is  described  by 

DFj  =  [(52/C2)- (S1/C1)}.  RDC.  Cl  eq.  2.3.6 

where  RDC  ■  redistribution  coefficient  (1  > RDC > 0) 

Gravity  water  drainage  out  of  zone  1  is  given  by. 

DRNl  =  (SI  -Cl)  .  DRS  eq.  2.3.7 

where  DRS  =  drainage  coefficient  (1  >  DRS  >  0) 

N.B.  SI  >  Ci 

Drainage  from  zone  2  is  assumed  equal  to  the  drainage  into  zone  2  from 
zone  l  on  the  previous  day: 

i.e.  DRN2j  =  DRN1M 

N.B.  DRN2  <  (S2  -  C2)  and  S2  >  C2 

From  examination  of  these  relationships  it  becomes  apparent  that  there 
are  many  control  coefficients  required  as  input  by  the  user  (table  2.2). 
Although  the  VB  III  model  has  reduced  the  input  requirements  of  the 
previous  versatile  budgets,  its  empirical  and  semi-empirical  relationships 
demand  much  site  specific  information.  The  input  detailed  in  table  2.2  is 
used  in  the  comparison  and  evaluation  of  the  four  models  in  section  2.6. 
There  is  no  option  for  shorter  time  intervals  between  output. 
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precipitation  (daily) 
potential  evapotranspiratlon 
crop  stage  dates  (Julian  days) 
julian  calendar  day 


number  of  cells 

cell  thickness 

cell  field  capacity 

cell  permanent  wilting  point 

bottom  cell  depths 

number  of  cells  in  layers  1  and  2 

maximum  drainage  amounts  (daily) 


The  Han)  and  Tries  model  attempts  to  use  the  established  ‘Terrain 
Trafflcabllity  Chart  for  Cross  Country  Movement’  (CCM)  of  the  Military 
Geographical  Service  in  a  more  quantitative  and  rigorous  manner.  The 
model  requires  three  types  of  input  data:- 

2.4a  long  term  factors:-  soil  type,  configuration  of  terrain, 

2.4b  medium  term  factors:-  vegetation,  seasonal  cultivation  of  topsoil, 
2.4c  short  term  factors:-  soil  moisture  content,  precipitation. 

Table  2.3  details  the  input  requirements  of  the  Hanl  and  Tries  model  for 
comparison  and  evaluation  of  the  four  models  in  section  2.6. 

The  model  is  based  on  a  soil  moisture  balance  account  system  (figure 
2.5).  A  ‘Soil  Moisture  Analysis  Chart'  is  created  through  the  continuous 
extrapolation  and  reckoning  of  soil  moisture  gain  and  loss.  The  particular 
form  of  the  the  budget  run,  i.e.  gain  of  soil  moisture  content  (figure  2.6) 
or  loss  of  soil  moisture  content  (figure  2.7),  is  dependent  on  whether 
rainfall  exceeds  the  potential  evaporation  or  not.  The  budget  is  run  from 
0600  hrs  -  0600  hrs  to  output  a  daily  traff tcabiltty  map. 

The  empirical  relationships  given  in  figures  2.6  and  2.7  utilise  much  site 
specific  data  (table  2.3  )  although  the  use  of  one  standard  reference  soil 
ensures  that  this  is  an  economic  system  to  use.  There  is  no  option  for 
shorter  time  intervals  between  output  or  to  incorporate  any  rain  between 
0000  hrs  and  0600  hrs  in  the  trafflcabllity  prediction  for  the  current  day 
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precipitation  (daily) 

dry  and  wet  bulb  temperatures 


(b)  Soil  Information; 

initial  soil  moisture  content 
field  capacity 
wilting  point 
usable  water  capactlty 


(c)  Coefficients. 

Haude  (0)  for  calculation  of  P.E. 


(d)  Empirically  derived  look-up  tables  tor; 

relating  soil  types  with  standard  reference  soil  terrain 
traff icabllity  with  respect  to  •- 

(i)  soil  type  and  moisture  state, 

(ii)  driving  manoeuvres 

Oil)  terrain  configuration  and  surface  state 
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2.5  A  Wetting-Front  Model  of  Soil  Water  Dynamics  (Clapp.  1962) 

The  wetting-front  model  alms  to  simulate  the  following  processes  in  a 
vertical  soil  column; 

2.5a  one-dimensional  infiltration  described  by  the 
Mein-Larson  /  Green- Ampt  relationships, 

2.5b  redistribution  after  Infiltration, 

2.5c  evaporation  according  to  an  analytical  diffusion  equation  using  an 
explicit  approximation  to  the  mean  weighted  diffusivity  (Clapp, 
1982), 

2.5d  internal  drainage. 


The  soil  profile  is  represented  as  a  series  of  uniform  moisture  blocks 
separated  by  wetting  fronts  (figure  2.8).  The  flowchart  in  figure  2.9 
shows  that  calculations  of  flow  (Qj),  velocity  of  the  boundary  2S  (Z\)  and 


fluxes  at  the  upper  and  lower  boundaries  of  each  block  (©’p  are  required. 
These  are  defined  by: 

Q  -  k  (  2U  ♦  1 )  eq.  2.5. 1 

dZ 

where  k  *  hydraulic  conductivity 
1*1  =  matric  suction 
-  z  =  depth 


START 
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Velocity  of  the  wetting-front  boundary  is  given  by 

Z\  =  Qj  / 1  A0j  I  eq.  2.5.2 

where  Ad,  =  moisture  difference  between  blocks  i  and  1  ♦  1 
N.B.  the  sign  of  Q.  indicates  the  direction  of  movement. 

The  moisture  content  is  defined  by: 

0'j  =  ( Q."  -  Qj+1*  )  /  aZ|  eq.  2.5.3 

where  Q*  refers  only  to  the  fluxes  that  affect  Oj 

It  was  found  (Clapp,  1982)  that  in  comparison  with  finite  difference 
models,  daily  results  were  within  10%,  though  evaporation  tended  to  be 
underestimated.  The  subsequent  revision  of  the  evaporation  routine 
indicated  its  sensitivity  to  changes  in  soil  moisture  at  depth.  The  data 
requirements  to  run  the  wetting-front  model  (table  2.4)  are  modest  in 
comparison  to  the  previous  empirical  and  semi-empirical  models  and  is 
discussed  further  in  section  2.6.  The  computational  efficiency,  i  e.  0  01 
-  0.03  of  the  computer  time  required  to  run  the  finite  difference  type 
model,  is  an  important  factor  in  considering  this  model.  An  altered 
evaporation  scheme  would  allow  variable  output  times 
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precipitation 
net  radiation 


(b)  Soil  Information: 

boundary  depths 

bounday  and  initial  conditions 

saturated  water  content  (8) 

point  of  inflection  (8) 

saturated  suction 

saturated  conductivity 

soil  moisture  dlffusivlty  of  each  layer 

suction  -  moisture  curves 

conductivity  -  moisture  curves 


(c)  Coefficients: 


for  advectlve  effects  (empirical) 
for  dlffusivlty 

b,  a  fitted  parameter  that  is  statistically  related  to  soil  texture 


To  fulfil  the  objectives  of  the  project  as  set  out  in  section  1.2,  an 
empirical  soil  moisture  prediction  model  such  as  the  VB  III,  5MSP  or  the 
Hanl  and  Tries  model  would  have  been  inappropriate  for  several  reasons:- 

2.6a  the  amount  of  'difficult  to  evaluate'  input  data  required  (table  2.5), 
2.6b  the  empirical  relationships  were  not  only  site  specific,  but  time 
specific,  i.e.  they  were  operational  on  a  daily  basis  only  (table  2.5  ), 
2.6c  adjusting  the  models  to  incorporate  other  environmental  processes 
such  as  subsurface  flow,  frosted  ground  etc.,  would  be  difficult  to  do 
with  any  certainty  of  model  stability. 

The  wetting  front  model  (Clapp,  1982)  has  been  designed  to  determine  the 
location  of  the  major  wetting-fronts  within  a  soil  profile.  This  is  not  the 
information  required  by  this  project,  though  the  use  of  deterministic 
relationships  indicates  that  the  model  could  be  adjusted  to  provide  the 
necessary  information. 

As  defined  by  Smith  and  Meyer  ( 1 973),  the  most  important  section  of  the 
soil  profile  with  respect  to  off-road  trafficability,  is  the  surface  0-30 
cms  deep  layer.  This  indicates  that  a  major  influence  in  any  proposed 
scheme  might  be  evaporation  (section  3.4)  The  evaporation  submodel 
incorporated  within  Clapp's  model  was  designed  for  daily  calculations  and 
was  proved  by  Clapp  to  be  at  best  10%  inaccurate  The  re-design  of  this 
model  and  the  replacement  of  the  evaporation  submodel  could  at  best  be 
only  marginally  satisfactory.  The  benefits  of  developing  a  scheme  with 
the  objectives  set  out  in  section  1.2  ,  i.e  having  a  structure  where 
subroutines  may  easily  be  incorporated  or  exchanged,  would  be  difficult  to 
realize  using  Clapp's  model  as  an  initial  basis. 


precipitation  x 

atmos.  variables  x 

soils  Info.  xxx 

site  relations  xx 

general  coeffs.  x 

site  coeffs.  x 


X 

X 

X 

X 

X 

X 

XX 

XX 

X 

XX 

XX 

X 

XX 

XX 

X 

XX 

XX 

X 

dally  output  v  v 

optional  output  no  no 


KEY:  x  -  similar  amounts  of  data  required 
xx  -  additional  information  required 
xxx  -  much  more  information  required 


Through  this  review  of  existing  schemes  it  is  now  possible  to  re-assess 
and  re-affirm  some  of  the  objectives  set  out  in  section  1.2- 

2.6d  There  would  be  much  benefit  if  output  from  any  newly  developed 
scheme  could  be  used  by  existing  vehicle  mobility  models  such  as  the 
CAMM  (section  2.2)  or  the  Ministry  of  Defence's  DRIVED  model 
2.6e  The  importance  of  having  an  effective  evaporation  submodel  has  been 
re-affirmed  firstly  through  Smith  and  Meyer's  work  on  determining 
that  the  important  soil  layer  is  0-30  cms  for  off-road  trafficability 
(section  2.2),  and  secondly,  through  Clapp's  evaluation  of  the 
importance  of  evaporation  on  his  model's  performance  (section  2.5) 
2.6f  The  inclusion  of  empirical  relationships  and  site  specific 

relationships  leads  to  Input  data  requirements  that  are  difficult  and 
maybe  impossible  to  evaluate  for  the  non-expert.  This  re-affirms 
the  specification  of  objective  1.2b. 

2.6g  The  difficulty  of  running  the  schemes  for  the  non-expert  indicates 
the  need  for  an  'operational'  and  'user  friendly'  system  as  proposed  in 
objective  1.2c. 


The  requirements  set  out  in  section  1.2  indicate  that  it  will  be 
impossible  to  fulfil  all  the  requirements  in  one  model.  It  is  therefore 
proposed  to  develop  two  schemes:- 

3.1a  A  one  dimensional  infiltration  scheme  linked  with  other 

environmental  processes  such  as  evaporation  and  soil  strength,  to  be 
called  the  Bristol  Soil  Strength  Scheme  (BSSS). 

3. 1  b  A  two  dimensional  scheme  (to  fulfil  requirement  1 .2. 1  e)  coupled 
with  soil  strength.  An  existing  scheme  such  as  the  VSAS2  will  be 
considered  for  adaptation  (section  6.2)  and  called  VSAS2  in  this 
project. 

The  BSSS  is  based  on  the  basic  infiltration  -  evaporation  -  soil  strength 
scheme  devised  by  Anderson  (1983)  and  is  shown  in  figure  3.1.  Although 
there  are  existing  methodologies  for  simulating  these  three  processes, 
section  3.2  will  review  the  utility  of  various  infiltration  schemes  of 
which  one  is  technically  described  in  section  3.5  for  use  within  the 
BSSS.  inherent  within  the  infiltration  methodologies  is  the  calculation  of 
hydraulic  conductivity  (section  3.3)  and  the  matric  potential  (section 
3.4).  The  appropriate  technical  description  of  the  chosen  methods  to  be 
used  in  the  BSSS  are  give  in  section  3.5. 

The  specification  for  the  evaporation  scheme  are  described  in  section 
3.7.  A  technical  description  of  the  method  is  given  though  the  scheme 
requires  some  further  development  which  is  described  in  section  4.2 


The  soil  strength  scheme  Is  reviewed  In  section  4. 1  and  a  completely 
new  scheme  is  developed. 

The  VSAS2  scheme  (Bernier,  1982;  Whitelaw,  1988)  simulates  the  two 
dimensional  flow  and  convergence  of  water  within  a  slope.  It  is  a  more 
complicated  model  and  as  such  requires  much  more  input  from  the  user  and 
has  significantly  different  computational  requirements  from  the  BS55 
(section  10).  The  infiltration  scheme  used  in  the  VSAS2  is  technically 
described  in  section  3.6  along  with  the  methodologies  used  to  calculate 
hydraulic  conductivity  and  matric  potential.  There  is  no  evaporation 
scheme  incorporated  into  the  VSAS2  and  this  restriction  is  further 
discussed  in  section  8.2. 


The  modelling  of  Infiltration  and  redistribution  of  water  within  a  soil 
profile  can  be  divided  into  three  components:- 

(a)  The  actual  modelling  of  the  flow  of  water. 

(b)  The  calculation  of  hydraulic  conductivity  (section  3.3). 

(c)  The  calculation  of  matrlc  potentlaKsectlon  3.4). 

This  section  will  discuss  the  flow  of  soil  water  within  the  soil  body  while 
assuming  that  a  satisfactory  method  has  been  used  to  determine  the 
hydraulic  conductivity  and  matric  potential. 

Many  relationships  describing  infiltration  as  a  function  of  time  or  the 
amount  of  water  infiltrated  Into  the  soil  have  been  devised.  Some  are 
entirely  empirically  and  others  theoretically  based.  It  is  this  second 
category  of  relationships,  i.e.  the  theoretically  based  equations  that  we 
will  review  in  the  effort  to  fulfil  requirement  3.5.2a  specified  in 
section  3.5  for  inclusion  in  the  BSS5. 

The  extent  of  the  relationships  reviewed  is  also  limited  to  those  that  are 
well  established  (requirement  3.5.2h).  Hence,  those  relationships 
devised  by  Philip  ( 1 957),  Green- Ampt  ( 1 9 11 )  and  the  Richard's  equation 
(Swartzendruber,  1969)  will  be  considered.  Established  relationships  such 
as  the  Hortan  ( 1 940)  and  Holtan  (1961)  equations  are  empirical  in  nature, 
requiring  calibration  to  select  the  correct  qualitative  shape. 


Philip  (1957)  proposed  that  infiltration  is  described  by: 

2a  *  s/2t1/2  +  c9 

a 

at 

where  dq/at  ■  volume  of  water  entering  a  unit  soil  surface  area 
per  unit  time 

s  ■  sorptivity  «  (2MKsSf)1/2  (Youngs,  1968) 
ca  =  characterizing  constant  =  2Ks/3  (Youngs,  1968) 

Sf  -  effective  matric  suction  at  the  wetting  front 
M  «  pore  space  available  for  water,  i.e.  6S  -  6( 

K  =  hydraulic  conductivity 

Philip's  equation  originated  from  the  first  two  terms  of  his  series 
solution  for  infiltration  from  a  ponded  surface  into  a  deep  homogeneous 
soil.  As  such,  the  relationship  is  inherently  restrictive  as  to  the  form  of 
water  application,  i.e.,  the  relationship  implies  surface  ponding  from  the 
start  of  the  simulation  period.  Philip's  methods  for  defining  ca  were 

shown  by  Youngs  ( 1 968)  to  be  physically  inconsistent  at  large  run  times 
and  hence  limited  the  application  to  short  run  times. 


Green  and  Ampt  (1911)  utilized  Darcy's  equation  to  simulate  the  progress 
of  a  ’slug'  of  water,  defined  by  a  wetting-front,  through  a  soil  profile. 

This  Is  the  methodology  used  by  Clapp  ( 1 982)  In  his  wetting-front  model 
reviewed  In  section  2.5.  It  Is  described  by: 

f  =  Ks  +  KgMSjVF  eq.  3.2.2a 

where  f  =  insurability 

Kg  ■  hydraulic  conductivity  of  the  transmission  zone 

M  =  pore  space  available  for  water,  i.e.  9g  -  9, 

Sf  =  effective  matrlc  suction  at  the  wetting  front 

F  -  cumulative  Infiltration  *  MLf 

Lf  ■  distance  from  the  surface  to  the  wetting  front 

The  derivation  of  this  equation  assumes  a  ponded  surface  so  that  the 
infiltration  is  at  all  times  equal  to  the  infiltration  capacity.  Further 
development  of  the  Green- Ampt  equation  carried  out  by  Bouwer  (1966) 
showed  that  the  hydraulic  conductivity  should  be  less  than  the  saturated 
hydraulic  conductivity  because  of  entrapped  air.  The  evaluation  of  the 
wetting  front  suction  is  also  difficult  to  evaluate  and  consequently 
several  methodologies  were  formulated  to  aid  in  the  evaluation  of  these 
parameters.  The  work  carried  out  by  Brakensiek  ( 1 977)  using  the 
prediction  methods  by  Brooks  and  Corey  (1964),  is  often  used  to  calculate 
the  wetting  front  suction.  The  more  accepted  method  of  determining  the 
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Green-  Ampt  parameters  (Haan  et  al,  1982)  Is  given  by  Brakensiek  and 
Onstad  (1977)  as  the  fitting  of  inflltrometer  data. 

Further  work  carried  out  by  Mein  and  Larson  (1973)  developed  the  scheme 
for  conditions  where  the  infiltration  rate  was  not  equal  to  the  infiltration 
capacity.  Using  equation  3.2.2a,  Sf  is  substituted  by  5^,  the  average 

suction  at  the  wetting  front  and  F  by  F  ,  where  Fp  is  the  cumulative 
infiltration  at  the  time  of  ponding  (t»t  ) .  Equation  3.2.2a  is  solved  for 
Fp  as  follows: 


Fp  -  eq.  3.2.2b 

R/Ks  -1 

since  f  =  R  prior  to  surface  ponding,  Fp  =  Rt 
where  t  *  time  of  surface  ponding 

For  a  steady  rainfall  rate  the  infiltration  rate  is  therefore  expressed  by: 

f  =  R  when  t  <  t 

f  =  K +  K  5  m/F  when  t  >  t 

s  s  av  p  p 


if  R  <  K  surface  ponding  will  not  occur.  The  application  of  the  Green- Ampt 
equation  to  unsteady  rainfall  conditions  has  been  examined  (Reeves  and 


Miller,  1975,  James  and  Larson,  1976,  Chu,  1978)  and  Haan  et  al.  (1982) 
concluded  the  following: 


(I)  The  Green-Ampt  equation  will  give  a  good  approximation  of 

'  infiltration  during  unsteady  rainfall  resulting  in  an  extension  of  the 

wetting  front. 

(II)  Over  long  periods  of  low  intensity  or  no  rainfall  the  wetted  profile 
will  redistribute. 

. 

From  these  results  it  is  possible  to  say  that  the  utility  of  the  Green-Ampt 
equation  is  limited  to  periods  of  a  minimum  intensity  rainfall.  The 
equations  will  not  be  reliable  over  longer  drier  periods. 

f 

L 

3.2»3-BichaaLs  Equation 

Richard’s  equation  is  the  basis  of  infiltration  theory  (Hillel,  1982)  which 
combines  Darcy’s  equation  with  the  continuity  equation  to  solve  the 
general  flow  equation  of  water  in  soil.  The  use  of  the  Richard's  equation 
is  widespread  and  well  established,  ft  is  the  methodology  used  in  the 
prototype  (Anderson,  1983)  of  the  proposed  scheme.  As  the  other 
methodologies  do  not  indicate  any  major  advantages  over  the  Richard's 
equation,  and  infact  are  less  suited  to  the  purpose,  the  Richard's  equation 
will  be  used  to  model  one  dimensional  infiltration  within  the  BS5S.  A 
technical  description  of  the  one  dimensional  version  is  given  in  section 
3.5.3  and  the  limitations  of  the  scheme  are  discussed  in  section  8. 1 . 


The  two  dimensional  version  is  used  within  the  V5A52  and  is  technically 


described  in  section  3.6.3.  Both  versions  of  Richard's  equation  require 
the  calculation  of  hydraulic  conductivity  and  matric  suction  as  related  to 
soil  moisture  content  and  therefore  the  following  section  will  review  the 
methodologies  available  for  these  calculations. 


To  incorporate  principles  of  soil  physics  such  as  the  infiltration  equations 
of  Green  and  Ampt  (1911),  Philip  (1957)  or  Darcy  (1856)  etc.,  the 
conductivity  function,  i.e.,  the  relationship  between  unsaturated  hydraulic 
conductivity  (k)  and  soil  moisture  content  (0),  must  be  known. 

Various  equations  have  been  developed  for  the  relation  of  conductivity  to 
suction  or  wetness.  Some  of  these  are  given  in  table  3. 1 ,  where  it  can  be 
seen  that  they  are  all  either  entirely  or  semi-empirical  based.  It  can  be 
seen  that  there  is  a  marked  similarity  in  the  first  six  relationships  where 
initial  development  by  Childs  and  Collis-George  (1950)  and  Marshall 
(1958)  has  been  compared  with  measured  hydraulic  conductivities.  The 
evaluation  of  the  exponential  constant  has  been  'fitted'  by  each  author 
from  their  results. 

The  original  development  of  the  relationships  of  Childs  and  Collis-George 
(1950)  was  based  on  the  following  assumptions  (Childs,  1969):- 

(a)  that  soil  water  flow  is  controlled  by  the  smaller  pore  in  a  sequence, 

(b)  that  only  pores  in  a  direct  sequence  contribute  to  the  total  hydraulic 
conductivity,  and 

(c)  that  the  pores  in  the  soil  medium  fit  together  randomly. 

Therefore,  the  hydraulic  conductivity  for  a  given  soil  water  content  is  the 
sum  of  the  contributions  to  conductivity  of  each  pore  class  between  radius 
zero  and  the  radius  of  the  largest  water-filled  pores. 

There  have  been  many  comparisons  of  calculated  and  measured  hydraulic 
conductivity  (e.g.  Nielsen  et  al.,  1960,  Jackson  et  al.,  1965,  Green  and 


RELATIONSHIP 

TYPE 

AUTHOR 

k(  0  )  =  k  (  0/0  J2b+3 
s  s 

Partially  empirical  & 
partially  theoretical 

Jackson  (1972) 

k(  0  )  =  ks(  0  /  0  s)2b+2 

Partially  empirical  & 
partially  theoretical 

Campbell  (1974) 

k(0)  =  ks(0/0s),5b+3 

Partially  empirical  & 
partially  theoretical 

Gosh (1977) 

k(  f  )  =  ks(  y  J  Y)2+2/b 

Partially  empirical  & 
partially  theoretical 

Campbell  (1974) 

k(  y  )  *  kg(  y  J  Y)2+3/b 

Partially  empirical  & 
partially  theoretical 

Jackson  (1972) 

log10  k  =  b  1  yI,/2  *3 

Empirical 

Gardner  (1958) 

m 

k,  =  k3  (0,  /0,)c  2  [(2j+1 

i -2t)  Yj-2]  mainly 

theoretical 

Millington  and 

Quirk  (1959), 

m 

with  matching 

Jackson  (1972), 

2.  ,[(2j-i)Yi'23  factor 

J-l  TJ 

Campbell  (1974) 

Marshall  (1958) 

where  ks  *  saturated  hydraulic  conductivity 

Y  =  matric  suction 
a  &  b  *  empirical  constant 
c  =  pore  interaction  term 
0  =  soil  water  content 
i  &  j  =  consecutive  soil  moisture  intervals 


Corey,  1971;  kunze  et  al.  1968  ).  Jackson  (1972)  concluded  from  tnese 
investigations  that  the  Marshall  and  the  Millington  Quirk  methods  were 
Doth  the  easiest  to  use  and  provided  reasonable  results  when  an 
appropriate  matching  factor  was  used.  Jackson  (1972)  showed  that  when  a 
matching  factor  is  used  that  these  two  methods  are  only  different  in  the 
pore  interaction  term. 

For  practical  application  the  difference  between  the  Millington  Quirk  and 
the  Marshall  methods  is  in  the  'c'  and  'n'  terms:- 

Millington  Quirk 

Term 

c  pore  interaction  term 

-  4/3  (Millington  Quirk,  1959) 

-  1  (Jackson,  1972, 

Kunze  et  al.  1968) 

n  total  number  of  water  content  number  of  water 

increments  from  zero  to  the  content  increments 

saturated  water  content  from  zero  to  the  water 

content  in  question 

Both  Jackson  ( 1 972)  and  Kunze  et  al.  ( 1 968)  determined  that  a  pore 
interaction  value  of  one  in  the  Millington  Quirk  method,  adequately 
predicted  the  measured  conductivities  and  would  be  applies  < ?  to 
calculating  the  hydraulic  conductivity  -  soil  moisture  content  relation  for 


Marshal] 

pore  interaction  term 
=  2  (Marshall,  1958) 

=  0  (Jackson,  1972) 


3.4  Review  of  Schemes  to  Calculate  Matrlc  Potential 

The  Infiltration  relationships  discussed  In  section  3.2  and  consequently 
the  methods  used  to  calculate  hydraulic  conductivity  in  section  3.3 
require  a  methodology  to  calculate  the  moisture  characteristic,  i.e.,  the 
relationship  between  suction  (y)  and  the  soil  moisture  content. 

Several  empirical  relations  have  been  developed  to  calculate  matrlc 
potential  or  soil  water  potential  and  are  shown  In  table  3.2.  The  most 
commonly  used  relationship  is  the  power  function  of  Campbell  ( 1 974) 
inwhich  both  the  suction  at  saturation  (y  )  and  the  exponent  (b)  are 
empirical  and  have  to  estimated.  Clapp  and  Hornberger  ( 1 978)  used  data 
collected  by  Holtan  et  al.  (1968)  to  calculate  ys  and  'b'  through  a  linear 
regression.  The  results  were  somewhat  problematic  in  that:- 

(a)  results  from  rocky  soils  were  excluded  because  they  were  too  erratic, 

(b)  results  from  soils  where  the  calculation  of  0/6s  exceeded  unity  at  0  1 
bar  suction  were  excluded,  and 

(c)  results  which  gave  'b'  values  greater  than  25  were  also  excluded,  as 
exponents  of  this  magnitude  were  considered  anomalous. 

From  the  1446  sods  eventually  used,  Clapp  and  Hornberqer  compiled  values 
for  U3  and  'b'  for  the  main  USDA  soil  textural  classes  and  is  shown  in 

table  3.3 

Soil  water  retention  at  selected  matric  potentials  have  been  correlated 
with  the  physical  soil  properties  such  as  particle  size,  organic  matter  and 
soil  bulk  density  (Gupta  and  Larson,  1979,  Rawls,  Brakensiek.  and  Saxon, 
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RELATIONSHIP 


TYPE 


AUTHOR 


Y(  0  )  =  Y  s(0/  0  s P 

Empirical 

Campbell  (1974) 

w  w  p3(  t“S8) 

▼  "  crc 

Empirical 

Farrell  and  Larson 

(1972) 

For  each  given  y~ 

Empirical 

Rawls,  Brakensiek 
and  Saxon  (1982) 

0  =  a,+b,  (&san<l)+Cj  (Xclay) 

Mien  and  Larson 

+dj  {%  om)+ej(sbd) 

(1971) 

where  ks  =  saturated  hydraulic  conductivity 

Se  =  effective  saturation 
*  *  matric  suction 

Y  cr  =  matric  suction  at  which  a  8  /a  y  >  0 
a.  -  e,  =  regression  coefficients 
a  =.empirical  constant 
8  =  soil  water  content 
i  &  \  =  consecutive  soil  moisture  intervals 
om  =  organic  matter 
sbd  =  soil  bulk  density 


(Clapp  and  Hornberger,  1978) 


Soil  Texture 
Class 


?  s  (cm) 


PP 

assssis 


Hi 


1982).  Rawls,  Brakensiek  and  Saxon  (1982)  assembled  soil  Information 
for  1323  soils  with  about  5,350  horizons  from  26  sources  of  data.  Their 
results  produced  reasonably  good  correlation  coefficients  (0.8  -  0.95) 
when  compared  to  the  Gupta  and  Larson  equations  ( 1 979).  Rawls, 
Brakensiek  and  Saxon  (1982)  developed  three  levels  of  linear  regressions 
relating  soil  water  retention  at  specific  potentials  to- 

(a)  %  sand,  %  clay,  %  silt,  %  organic  matter  and  soil  bulk  density, 

(b)  %  sand,  %  silt,  %  clay,  %  organic  matter,  soil  bulk  density  and  15  bar 
water  retention; 

(c)  %  sand,  %  silt,  %  clay,  %  organic  matter,  soil  bulk  density,  0.33  and  15 
bar  water  retention. 

Further  analyses  by  Brakensiek  and  Rawls  (1983)  produced  a  linear 
regression  based  on 

(d)  %  ^and,  %  clay,  %  organic  matter  and  soil  bulk  density. 

This  provides  a  range  of  equations  the  utility  of  which  will  be  dependent 
on  the  availability  of  soil  information.  The  research  of  Brakensiek  and 
Rawls  (1983)  also  developed  methodologies  of  estimating  these  soil 
characteristics  for  the  USDA  soil  textural  classes  and  if  further  discussed 

in  section  4.3 


As  discussed  in  section  3,1,  an  acceptable  method  for  simulating  the  the 
flow  of  water  through  a  soil  profile  is  a  necessary  attribute  of  the 
proposed  B5S5.  The  following  sections  refine  the  system  requirements 
set  out  in  section  1.2,  and  in  the  light  of  these  requirements  review 
schemes  that  might  fulfil  as  many  of  those  requirements  as  possible. 


Requirement  1.2. Id  specifies  a  'physically  based  system  to  predict  soil 
moisture’.  This  term  'physically  based'  means  'deterministic  relationships 
describe  the  physical  processes  of  water  movement  operating  within  the 
soil  profile'.  Hence,  the  specific  requirements  may  be  defined  as  follows- 

3.5.2a  The  infiltration  and  redistribution  of  water  within  a  one 

dimensional  soil  profile  should  be  simulated  by  a  physically  based 
scheme,  i.e.,  the  behaviour  of  the  scheme  is  represented  by  a  set  of 
mathematical  equations  along  with  logical  statements  expressing 
relationships  between  variables  and  parameters. 

3.5.2b  The  scheme  should  not  require  calibration,  i.e.,  calibration  is 
where  input  to  a  function  is  neither  directly  measurable  or 
logically  calculated  and  must  be  evaluated  through  the 
methodology  of  "fitting". 

3.5.2c  The  scheme  adopted  should  have  input  data  that  is  easily  acquired 
by  the  trained  but  non-expert  user. 


3.5.2d  The  system  can  provide  any  'difficult'  to  acquire  input  data  from  a 
simple  input  from  the  user,  i.e.,  data  banks  are  permissible. 

3.5.2e  The  scheme  should  have  variable  temporal  resolution. 

3.5.2f  The  scheme  should  have  the  potential  for  integration  with  other 

schemes  to  predict  environmental  factors  such  as  evaporation  and 
soil  strength. 

3*5.2g  The  design  and  code  of  the  system  should  be  fully  described  and 
documented.  The  description  should  include  a  technical 
description,  the  input  data  required  and  the  restrictions  of 
application. 

Potential  schemes  for  calculating  infiltration,  hydraulic  conductivity  and 
matric  potential  were  reviewed  in  sections  3.2,  3.3  and  3.4 
respectively.  The  scheme  that  will  fulfil  as  many  of  the  above 
requirements  as  possible  will  be  chosen  from  those  reviewed,  but,  it 
should  be  remembered  that  the  scheme  eventually  adopted  will  probably  be 
a  compromise  and  therefore  the  different  requirements  will  take  on 
different  priorities.  Another  requirement  should  therefore  be  specif ied:- 

3.5.2h  The  scheme  adopted  should  be  well  established  and  tested  to 

eliminate  the  need  for  an  excess  of  time  to  be  spent  on  this  one 
facet  of  the  project. 

This  last  requirement  tries  to  bring  into  perspective  this  section  has 
within  the  main  objective  specified  in  section  1.2,  i.e.,  the  main  purpose 
of  this  project  is  '  to  develop  an  operational  system  to  predict  off -road 
trafficability  on  a  km  2  scale  for  application  to  route  management 
problems' . 
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The  movement  of  water  between  cells  (figure  3.2)  is  defined  according  to 
Darcy's  Law;- 


&  =  £_  (k(0)&(0))  -2L(6) 
at  az  az  az 


eq.  3.5.3. la 


where  0  *  soil  water  content 
t  =  time 
z  ■  distance 

k(0)  =  hydraulic  conductivity  at  soil  water  content  6 
V  *  matric  potential 


Equation  3.5.3.1a  is  solved  through  the  following  equations:- 


q  =  k(0)  Ah 


eq.  3.5.3. lb 


where  q  =  apparent  water  velocity 

k(0)  =  hydraulic  conductivity  at  soil  water  content  0 
Ah  =  hydraulic  gradient 


afi  =  Aq 
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eq.  3.5.3. 1  c 


where  6  =  soil  water  content 


t  =  time 

Aq  =  flow  gradient 


Substitute  eq.  3.5.3.1c  into  eq  3.5.3.1b- 
-  a  (k(6)Ah) 

dt  eq.  3.5.3. Id 


Set 


Ah  =  V*z  eq.  3.5.3. 1e 

where  V  *  *  matric  potential  at  soil  water  content 

Q,  and  may  be  either  a  suction  or  a  pressure 
z  =  gravitational  head  (or  depth) 


Substitute  eq.  3.5.3. 1e  into  eq.  3.5.3. Id¬ 
as.  -  A  (k(e)A(g-z)) 

dt  eq.  3.5.3. If 


Expand  eq.'3.5.3. If  in  Z  direction  - 
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eq  3.5.3. 1g 

(One  dimensional  flow) 

3.5,3.2  Calculation  of  Hydraulic  Conductivity  in  the  BSSS 


Calculate  the  hydraulic  conductivity  according  to  the  relationship 
established  by  Millington  and  Quirk  (1959)  and  developed  by  Jackson 
(1972)  and  Campbell  (1974)  :- 


m 

k,  =k3  (0j  /©3)c  Ijmj[(2J+ 1-21)10 


I,  [<2l- 


eq.  3.5.3.2a 


at  equal  moisture  intervals  (Millington  and  Quirk) 

where  k$  =  hydraulic  conductivity 

©s  =  saturated  soil  moisture  content 

c  =  a  pore  interaction  constant  =  1 
m  =  number  of  equal  sized  moisture  intervals 


Calculate  soil  bulk  density  for  each  different  soil  type  according  to  Rawls, 


mbd  »  mineral  bulk  density 


9 


mm 

MSs 


M 


- “T  «j*  V 

*  •  ~  »  'to  *  »  *■ 


lif 


Ml* 


hm 


irasjafliiiHi mrnMEHEEmsmm 


The  general  requirements  set  out  in  section  1.2. 1  highlight  the  necessity 
of  developing  a  facility  capable  of  handling  a  steep  area  that  may  be  highly 
vegetated  The  solution  to  this  requirement  has  been  to  adapt  an  existing 
scheme  (VSAS2)  for  application  to  soil  strength  calculations  (section 
6.2).  The  following  section  sets  out  the  requirements  which  the  V5A52 
incorporates  within  it  which  are  of  use  for  adaptation.  The  soil  physics 
methodologies  used  in  the  VSA52  are  then  technically  described  (section 
3.6.3). 


The  requirements  which  apply  to  development  of  the  one  dimensional 
infiltration  scheme,  i.e.  physically  based,  also  apply  to  the  development  of 
the  two  dimensional  scheme.  Requirement  1 .2. 1  e  has  been  re-defined  as 
follows:- 

3.6.2a  The  infiltration  and  redistribution  of  water  within  a  sloping 
segment  should  be  simulated  by  a  physically  based  two 
dimensional  scheme. 

3.6.2b  The  scheme  should  not  require  calibration. 

3.6.2c  The  scheme  should  have  variable  temporal  resolution. 

3. 6. 2d  The  scheme  should  have  the  potential  for  integration  with  other 
schemes  to  predict  soil  strength. 
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3.6.3e  The  design  and  code  of  the  system  should  be  fully  described  and 
documented.  The  description  should  include  a  technical 
description,  the  input  data  required  and  the  restrictions  of 
application. 

3.6.3f  The  schemes  adopted  should  be  well  established  and  tested. 

Potential  schemes  for  calculating  infiltration,  hydraulic  conductivity  and 
matric  potential  were  reviewed  in  sections  3.2,  3.3  and  3.4 
respectively.  The  methods  used  in  the  VSA52  for  calculating  two 
dimensional  infiltration  and  redistribution,  hydraulic  conductivity  and 
matric  potential  are  technically  described  in  the  following  section. 
Section  6.2  describes  the  design  and  adaptation  of  the  VSAS2  for 
application  to  off-road  traff icability  predictions. 


1956)  and  Richard's.  (Swartzendruber.  1969) ) 


RICHARD'S  EQUATION  OF  FLOW 


q  =  k(9)Ah  eq.  3.6.3.1a 

where  q  *  apparent  water  velocity 

k(0)  -  hydraulic  conductivity  at  soil  water  content  0 
Ah  =  hydraulic  gradient 


CONTINUITY  STATES. THAT; ~ 

20  =Aq  eq.  3.6.3. lb 

at 

where  0  =  soil  water  content 
t  =  time 

Aq  ■  flow  gradient 

Substitute  eq.  3.6.3. 1  b  into  eq  3.6.3. 1  a  - 


2&  =  a  (k(©)Ah) 

at 


eq.  3.6.3. 1  c 


where  ^  =  1^(0)  =  matric  potential  at  soil  water  content 
9,  and  may  be  either  a  suction  or  a  pressure 
z  =  gravitational  head 

iilieq.  3,6.3. Id  into  eq.  3.6.3.1c- 

«  A  (k(0)A(g+2)) 

at  eq.  3.6.3. 1e 


Expand  eq.  3.6.3. 1  e  in  x  and  z  directions 

-  a_  [  k(©)x  *  ^z)  ]  +  [  k(8)z  (^)  +  &)  ] 

at  ax  ax  ax  az  az  az 

eq.  3.6.3. If 

From  Bermer  (1982),  x  represents  slope,  i  e  x  cos  B 

where  8  =  slope  angle 
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Substitute  eq.  3.6.3. 1  g  into  eq.  3.6.3. 1  f 


& 

dt 


COS2  3  L  t  M0)x*  (^U +  to)  1  + 

ax*  ax*  ax" 


lI  k(9)z  to+  o  1 

dz  dZ 


eq.  3.6.3. 1h 

(Two  dimensional  flow) 


Expand  eq.  3.6.3. 1e  in  Z  direction.- 


-  it  k($)  to  +  ^)  1 
at  az  az  az 


“>  3S  =  a  [  k(6)ay(e)  +  k(©>  ] 
at  az  az 


SSL  =  $_[  k(6)aij(e)  ]  +  MSI 
at  az  az  az 


eq  3.6.3.11 


l  A 

•  • 


vvAv 


(One  dimensional  flow) 


eq.  3.6.3.2a 


k(©)  =  ksal  (_§_)2b+2 
esat 

where  k(6)  ■  hydraulic  conductivity  at  soil  water  content  0 
0  =  soil  water  content 

0sal  »  saturated  soil  water  content 

ksal  ■  saturated  hydraulic  conductivity 

b  =  empirical  coefficient  (table  3.3  gives  some 
values  for  the  different  soil  textural  classes) 


Average  Hydraulic  Conductivity  Between  Two  Different. Soil 

Elements  (QiUdsJ9691 

K  =  _Q,_  +  eq.  3.6.3.2b 

k(0),  k(©)2 

where  k  =  average  hydraulic  conductivity 

kf©),  =  hydraulic  conductivity  of  element  I 

k(0)2  =  hydraulic  conductivity  of  element  2 
D,  =  thickness  of  element  I 


D2  =  thickness  of  element  2 


where  y(0)  =  matrlc  potential  at  soil  water  content  0 
0  =  soil  water  content 

0  .  =  saturated  soil  water  content 

sat 

=  air  entry  potential 

b  =  empirical  coefficient  (table  3.3  gives 


some  values  for  the  different  soil 
textural  classes) 


The  importance  of  the  surface  layer  (0-15cms)  in  trafficability 
calculations  was  determined  by  Smith  and  Meyer  (1973)  and  the  discussion 
in  section  2  highlighted  the  importance  of  evaporation  on  this  layer.  The 
temporal  resolution  of  the  proposed  BSSS  indicates  the  need  for  an 
evaporation  methodology  which  also  operates  on  a  variable  temporal  scale. 

Evaporation  from  a  bare  soil  surface  occurs  when  affected  by  radiation  and 
wind.  Evaporation  from  plants  (transpiration)  is  affected  by  the 
evaporative  demand  of  the  surrounding  climate.  By  limiting  the  use  of  the 
BSSS  to  temperate  regions,  the  dominant  process  is  considered  to  be 
evaporation.  Hence,  at  this  first  attempt,  a  satisfactory  method  of 
estimating  the  variable  nature  of  evaporation  is  considered  as  a  prime 
objective.  Some  effect  of  vegetation  is  included  in  the  choice  of  albedo 
(section  4.2). 

For  evaporation  to  take  place  from  a  surface  three  physical  conditions 
must  be  met.  These  are  represented  by  the  'evaporation  triangle'  shown  in 
figure  3.3  .  There  must  be  an  adequate  supply  of  heat  to  satisfy  the 
latent  heat  requirement  of  water  The  source  of  this  heat  can  be  from  the 
atmosphere  in  the  form  of  radiated  or  advected  energy,  or  from  the  body 
itself.  The  most  probable  and  dominant  source  of  energy  in  the  temperate 
latitudes  will  be  that  from  the  atmosphere. 

For  evaporation  to  take  place  there  must  also  be  a  vapor  pressure  gradient 
between  the  soil  body  and  the  atmosphere,  i  e.,  the  vapor  pressure  in  the 


atmosphere  over  the  body  must  be  lower  than  the  vapor  pressure  at  the 
surface  of  the  body. 


The  final  requirement  for  evaporation  to  take  place,  as  shown  in  figure 
3.3,  is  that  of  an  adequate  supply  of  water  for  evaporation.  The 
calculation  of  the  amount  of  water  in  the  profile  at  any  given  point  in  time 
has  been  covered  in  section  3.5  and  therefore  it  is  the  first  two 
requirements  of  the  evaporation  triangle  that  will  be  examined  to  provide 
a  methodology  for  estimating  evaporation. 

The  supply  of  energy  and  the  removal  of  vapor  are  mainly  characteristics 
of  the  surrounding  atmosphere.  The  rate  at  which  evaporation  can  take 
place  will  be  influenced  by  meteorological  factors  such  as  radiation,  air 
temperature,  humidity  and  wind  velocity.  These  environmental  conditions 
may  remain  constant  or  fluctuate  over  the  required  time  period,  i.e. 
diurnal,  or  also  over  a  longer  time  period,  i.e.  seasonally  or  annually 

Any  scheme  adopted  to  estimate  evaporation  must  be  able  to  work  at  any 
time  of  the  year  and  because  of  the  temporal  resolution  required,  i.e. 
output  at  intervals  of  0.25  -  several  hours,  the  diurnal  variation  should  be 
incorporated.  This  indicates  that  a  non-isothermal  model  of  evaporation 
estimation  is  the  type  of  model  that  would  best  suit  the  model  needs. 


3.7.2  Petal  led  .Requirements 

The  section  above  discussed  the  general  objectives  used  to  determine  the 
type  of  evaporation  model  that  would  best  suit  the  B555.  A  further 
refinement  of  those  objective  and  the  requirements  set  out  in  section 

1.2  is  now  necessary  to  define  a  proposed  scheme  - 
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(a)  The  system  should  be  as  physically  based  as  possible. 

(b)  The  scheme  should  require  only  meteorological  information  that  is 
readily  available  from  a  standard  meteorological  recording  station,  i.e. 
humidity,  air  and  ground  temperatures,  windspeed,  cloud  information 
and  atmospheric  pressure. 

(c)  The  scheme  must  be  able  to  operate  at  any  time  of  the  year,  i.e. 
information  about  the  solar  zenith  angle  etc.  can  be  provided. 

(d)  The  scheme  must  display  the  diurnal  fluctuation  in  the  evaporative 
ability  of  the  environment. 

(e)  The  scheme  should  allow  for  some  influence  of  topography  on  the 
evaporation  estimation,  i.e.,  the  orientation  and  angle  of  slope. 

These  requirements  are  quite  specific  in  the  type  of  scheme  required  to 
estimate  evaporation  and  consequently  eliminate  almost  all  of  the  most 
commonly  used  empirical  or  isothermal  evaporation  routines. 


3.7.3  Review  of  Suitable  Schemes 

The  requirements  specified  above  specify  a  system  that  is  highly  complex 
and  dynamic  in  nature.  An  energy  balance  approach  has  been  taken  by  van 
Bavel  and  Hillel  (1975,  1977),  Khale  (1977)  and  Balick  et  al.  (1981). 


The  scheme  developed  by  van  Bavel  and  Hillel  ( 1 977)  uses  radiation  air 
temperature,  albedo,  humidity  and  wind  speed  to  predict  sensible  heat, 
latent  heat  and  the  pattern  of  soil  moisture  and  soil  temperature  in  the 
profile.  The  energy  balance  part  of  the  scheme  calculates  incoming  and 
outgoing  long-wave  radiation  and  then  solves  for  evaporation. 


The  Balick  et  al.  scheme  uses  the  energy  balance  equation  developed  by 
Khale  (1977)  which  requires  radiation,  air  and  ground  temperatures, 
humidity,  albedo,  cloud  information,  humidity,  atmospheric  pressure  and 
solar  zenith  angle  as  inputs.  Balick  et  al.  also  require  site  information  to 
assess  the  influence  of  slope  orientation  and  steepness  on  evaporation 
estimation. 

The  Balick  et  al.  scheme  was  part  of  the  original  Anderson  (1983)  model 
and  with  correction  of  the  albedo  handling  (section  4.2)  this  is  the  model 
which  fulfills  the  requirements  set  out  above.  The  full  technical 
description  of  the  scheme  is  given  in  section  3.7.4. 


Calculate  evaporation  at  any  time  of  day  and  year  according  to  Weisner's 
(1970)  method 

evaporation  =  S  -  I  -  G  -H 

Lx  eq.  3.7.4a 

where  5  =  incoming  radiation  to  a  surface  of  albedo  ag 

l  =  thermal  infra-red  radiation 
G  *  heat  flux  from  the  ground 
Lx  «  latent  heat  exchange 
H  =  sensible  heat 

Calculate  S  according  to:- 

S  =  ( 1  -a  )  [ i  -A(u*,z)3(0.349)Socos  z  eq.  3.7.4b 

+  ( 1  -ag)  [( 1  -a0)/(  1  -a0^g)](0.65 1  )SQcos  z 


where  S  n  incoming  radiation  at  the  ground  with  no  cloud  cover 
ag  =  surface  albedo 

ag  =  average  ground  albedo 

a0  =  atmospheric  albedo  for  Raleigh  scattering  ,  equal  to 


Ill  WBUH1I  i.N  UVWVTmv.TTl  V 


Tr^VTTTTTT 


-92- 


ps  ■  surface  pressure 
pe  »  1 000  mo 

z  =  zenith  angle  of  the  sun  as  a  function  of  the  time  of  day 
and  year 

A(u*,z)  =  Mugge  -  Moller  absorption  function,  equal  to 
0.2710/ sec  z)0803 

u*  =  effective  water  vapour  content  of  the  atmosphere 
S0  =  solar  radiation  incident  on  top  of  the  atmosphere 

(0.349)So  =  amount  of  solar  radiation  of  wavelength  >  0.9  pm 
(0.651  )S0  =  amount  of  solar  radiation  of  wavelength  <  0.9  pm 


Calculate  u*  according  to  Smith's  (1966)  method  :- 


u’  =  exp  [0  07074  T*  t] 


eq.  3.7.4c 


where  Td  =  dew  temperature 

T  =  -0.02290  April  -  June 
7  =  0.02023  all  other  months 
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Calculate  cloud  cover  adjustment  factor  according  to  Haurwitz's  method 
(1948):- 

CA  =  (a/94  4)  exp[-m(b-0. 059)]  eq.  3.7.4d 


where  CA  =  cloud  adjustment  factor 

a&D  =  empirical  coefficients  dependent  upon  cloud  type 
(Balick  et  a!.,  1981 ) 
m  =  secant  of  the  solar  zenith  angle 

Calculate  the  energy  reaching  the  surface  according  to  Pochop  et  al., 
(1968)- 

Sc  =  Sa  -  [Sa-(Sa.CA)].CC2  eq.  3.7.4e 

where  5C  =  energy  reaching  the  surface 

Sa  *  energy  reaching  surface  with  no  cloud 

CA  =  cloud  adjustment  factor 
CC  *  visual  cloud  cover  in  tenths 

Calculate  the  effective  incident  net  insolation  according  to  - 

5  «  5C  SF  eq.  3.7.4f 

where  S  *  effective  incident  net  insolation 
3C  =  net  insolation 
5F  =  slope  factor 


Calculate  the  slope  factor,  5F,  according  to  ;- 


5F  =  cos(z).cos(5l) +  sin(z).sin(51).cos(5AZ-5IAZ) 

eq.  3.7.4g 


where  5F  =  slope  factor 

z  =  solar  zenith  angle 
SI  =  slope  of  the  surface 
SAZ  -  solar  azimuth  angle 
SIAZ  ■  azimuth  of  the  slope 


Calculate  the  thermal  infra-red  energy  inputs  according  to  Sellers, 
(1965):- 


l70  =  E6T*  [  c  ♦  b(ea°5  )  ] 


eq.  3.7.4h 


where  =  thermal  infra-red  energy  input 

E  ~  emissivity  (assumed  to  be  1 ) 
d  -  Stephan  -  Boltzman  constant 
Ta  =  shelter  air  temperature  (kelvin) 

ea  =  water  vapor  pressure  (mb) 

b  =  empirical  constant x  0.05 
c  ■  empirical  constant  *  0  61 


Calculate  the  water  vapor  pressure,  ea  according  to  Murray,  (1967):- 


ea  *  RH,  (6. 1 08).exp(A.T  )/(T  +273  1 5-B) 

9  9  9 


eq.  3.7.41 


where  ea  =  water  vapor  pressure 

RH  =  relative  humidity  (decimal) 

Ta  -  shelter  air  temperature  (kelvin) 

A  *  empirical  constant  «  17.269 
B  -  empirical  constant  =  35.86 


Calculate  the  infra-red  radiation  at  surface  as  affected  by  cloud  presence, 
according  to  Sellers,  (1965) 


I*  =  l./o  ( 1+CIR  .  CC2) 


eq.  3.7.4J 


where  lVt  =  cloud  adjusted  infra-red  radiation  at  surface 

I^q  *  infra-red  radiation  at  surface  with  no  cloud  cover 

CIR  =  coefficient  dependent  upon  cloud  type  (Sellers,  1965 
orOke,  1978) 

CC  =  cloud  cover  in  tenths 


Calculate  the  ground  radiative  emittance,  rt,  according  to  - 


o  -  v<V 


eq.  3.7.4k 
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where  \\  =  ground  radiative  emtttance  from  the  surface 
4  -  emissivity  of  the  ground 
6  =  Stephan  -  Boltzman  constant 
Tg  =  ground  temperature 

Calculate  the  total  infra-red  input,  I,  to  the  surface  according  to:- 
I  =  \A  -  4  eq.  3.7.41 

where  1  ■  total  thermal  infra-red  input  to  the  surface 
lVl  =  cloud  adjusted  infra-red  radiation  at  the  surface 

4  =  energy  radiated  from  the  surface 

Calculate  the  conductive  and  convective  sensible  heat  transfer,  H, 
according  to  Lamb,  ( 1 974);  Oke,  ( 1 978)  :- 

H  =  -/?CpX"2z2  ^v  SCF 

dz  dz  eq.  3.7.4m 

where  H  -  sensible  heat  transfer 
p  =  air  density 

Cp  =  specific  heat  of  dry  air  at  constant  pressure 
k  =  von  Karman's  constant  =  0.40 
z  =  observation  height 


-97- 


dd  /  dz  -  partial  derivative  of  potential  temperature  w.r.t.  height 
dv  /  dz  *  partial  derivative  of  windspeed  w.r.t.  height 


SCF  is  defined  bv  - 


eq.  3.7.4n 


SCF  =  1.175U-I5FU075 


SCF  * ( I-5RJ 


SCF  =0 


when  R,  s  0 


when  0  <  R:  s  0.2 


when  R,  >  0.2 


Calculate  potential  temperature,  6  ,  according  to:- 


Q  =  T9  (  ]M )°  286 


where  8  -  potential  temperature 
Ta  -  air  temperature 
P  =  air  pressure 


eq.  3.7.4o 


Calculate  the  Richardson  number,  R,  according  to.- 


R:  =  (a.  )  /  ( av  )2 


eq.  3.7.4p 
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where  R  =  Richardson's  number 
g  -  gravity 


6  =  average  potential  temperature  between  the  surface  and 
height,  z 

v  =  average  wind  velocity  between  the  surface  and  height, 
z. 


Calculate  the  latent  heat  exchange,  Lx,  according  to  - 


Lx  -  -p  Lk2  z2  (  w  )  (&/)  SCF  eq.  3.7.4q 

az  az 


where  Lx 

P 

L 

q 

v 

z 

k 

w 

SCF 


-  latent  heat  exchange 

*  air  density 

*  latent  heat  of  evaporation 

*  specific  humidity 
=  wind  velocity 

=  height  (i.e.  shelter  height) 

=  von  Karman's  constant  »  0.40 
=  saturation  factor 

*  defined  in  eq.  3.7.4n 


N.B. 

Assume  that  heat  flux  from  the  ground,  G,  in  temperate  latitudes  =  0 


Calculate  the  following  substitutions:- 

SUBST.  eq.  3.7.4c  into  eq.  3.7.4b  to  solve  eq.  3.7.4b 
SUBST.  eq.  3.7.4d  &  eq.  3.7.4b  into  eq.  3.7.4e 

SUBST.  eg.  3.7.4e  &  eq.3.7.4g  Into  eq  3.7.4f 

SUBST.  ea.  3.7.4h  into  eq.  3.7.4J 

SUBST.  eq.  3.7.4J  &  eq.  3.7.4k  Into  eq.  3.7.41 

SUBST.  eq.  3.7. 4o  Into  eq,  3.7.4p 

SUBST.  eg.  3.7.4p  into  eq.  3.7.4n 

SUBST.  eq.  3.7.40  &  eq.  3.7. 4n  into  eq.  3.7.4m 

SUBST.  eq.  3.7.4o  Into  eq.  3.7. 4q 

Substitute  equations  3.7.4f 

3.7.41 

3.7.4m 

3.7.4q  Into  eq.  3.7.4a 


to  solve  for  evaDoration, 


Off-road  trafficabillty  is  a  description  of  the  ground  surface  state  applied 
to  movement  over  it.  As  discussed  in  section  2,  application  may  range 
from  agricultural,  e.g.  work  days,  animal  grazing,  etc.,  through  civil,  e  g. 
logging  operations,  to  military,  e.g.  best  route  scenario,  speed  prediction, 
etc.  For  any  of  these  applications,  a  standard  quantitative  method  of 
expressing  trafficability  must  be  adopted. 

The  two  major  methods  used  to  express  soil  strength  are  the  Rating  Cone 
Index',  (RCI)  and  the  'Californian  Bearing  Ratio’,  (CBR).  For  the  purpose  of 
this  project  soil  strength  will  be  calculated  in  terms  of  RCI  as  existing 
off-road  trafficability  models,  e.g,  5MSP,  predict  values  of  RCI.  Figure 
4. 1  demonstrates  the  definition  of  RCI  as  a  function  of  the  shear  soil 
strength.  The  RCI  is  the  cone  index  (Cl)  that  will  result  under  traffic  and 
is  calculated  according  to 

RCI  =  C!  x  Remoulded  Index 

e.g.  Cl  -  85,  Remoulded  Index  =  0.7 

->  RCI  »  85  x  0.7  =  59.5  (Department  of  the  Army,  1 959) 

This  project  uses  a  remoulded  index  of  0.7  to  calculate  RCI  from  Cl  and  the 
implications  of  this  assumption  are  further  examined  in  section  8 
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The  shear  soil  strength  is  statically  dependent  of  the  mechanical 
characteristics  of  the  soil,  but  is  dynamically  dependent  on  the  soil 
moisture  content.  For  application  to  traff icabtlity  the  critical  layers  of 
the  soil  profile  are  0-6  and  6-12  inches  (Smith  and  Meyer,  1973). 

As  comparisons  between  the  SMSP,  VSAS2  and  the  BSSS  will  be  required 
to  assess  the  new  schemes  (section  10.3)  it  is  necessary  that  they 
predict  the  same  type  of  outputs.  It  is  also  hoped  to  apply  some  results  to 
the  Ministry  of  Defence's  DRIVEB  (section  10.3)  model  which  requires  an 
input  of  RCI. 


4.1-2  Detailed  Requirements 

Having  decided  that  the  quantity  we  would  like  to  predict  is  RCI,  it  is  now 

possible  to  refine  the  general  requirements  stated  in  section  1.2  - 

4.1.2a  Soil  strength  is  to  be  calculated  in  terms  of  RCI. 

4.1.2b  The  scheme  adopted  or  developed  should  preferably  be  physically 
based. 

4.1.2c  The  scheme  should  be  parsimonious  with  respect  to  data 
requirements. 

4.1. 2d  The  scheme  should  include  the  effect  of  soil  moisture  content  on 
soil  strength. 
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4.1.3  Review  of  Potential  Soil  Strength  Schemes 

In  a  review  of  soil  traff icablllty  prediction  undertaken  by  the  U.S.  Corps  of 
Engineers  ( 1967)  the  soil  moisture  -  soil  strength  empirical  relationships 
of  Collins  ( 1 967)  and  Moltham  ( 1 967)  were  highlighted.  This  work  was  the 
basis  of  an  empirical  prediction  of  RC1  by  Collins  ( 1971 ).  This  was  tne 
methodology  used  by  both  the  5MSP  scheme  and  Anderson  (1983),  and  is 
therefore  reviewed  below  along  with  the  only  physically  based  RCl 
calculation  available. 


4.1.3a  Empirical  RCl  Calculation 

Collins  (1971)  developed  the  following  relationship  to  calculate  RCl.— 

in  RCl  -  4605  ♦  2.123  ♦  0.008(0-0.693  In  M 

0. 149  +  0.002(C)  eq.  4.1.3a 

where  M  =  moisture  content  (X  dry  weight) 

C  =  percentage  clay 


As  was  discussed  above,  this  relationship  was  the  best  there  was  for 
many  years,  and  as  such  was  used  in  the  5M5P  scheme  and  Anderson’s 
prototype  scheme.  It  is  entirely  empirical,  and  as  such  does  not  fulfil  the 
requirements  stated  in  section  4.1.2.  It  is  therefore  proposed  to 
investigate  any  available  physically  based  schemes 
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A  model  developed  by  Rohani  and  Baladi  ( 1981 )  correlates  cone  index  (Cl) 
with  the  fundamental  engineering  properties  of  a  soil.  The  scheme  is 
based  on  modelling  the  penetration  of  a  standard  WES  cone  penetrometer 
(figure  4.2)  into  soil:- 


Cl  ■  -C  cot  0  + 


(y(D/2))2  tan3  0 


3  -  sin  0 


eq.  4. 1 .3. 1 


where 


0  -  LC+  v (Z+L 


--  [  +  w  /+ 


(2-m)  (3-m) 


eq.  4. 1.3.2 


m  =  4  sin  0  /  3(1  ♦  sin  0) 


Cl  =  cone  index 
Z  =  depth  from  surface 
C  =  soilconesion 
0  ■  angle  of  internal  friction 
y  =  soil  density 
D  =  cone  diameter 
L  =  cone  length 
a  =  half  the  cone  apex  angle 
G  =  apparent  shear  modulus 


eq.  4. 1.3.3 
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Rohani  and  Baladl  Integrated  the  stresses  of  the  cone  penetrating  the  soil 
over  the  cone  surface  to  produce  this  expression  for  Cl.  This  derivation 
was  carried  out  under  fully  drained  conditions  and  therefore  the 
relationship  was  unable  to  include  the  effect  of  soil  water. 

There  were  three  ways  inwhich  variable  pore  pressures  (both  positive  and 
negative)  could  be  included  in  the  Rohani  and  Baladi  scheme  and  were 
discussed  with  Baladi  ( 1 987):- 


Simole  Alteration  of  7'  Term 

In  the  original  Rohani  and  Baladi  relationship  (eq.  4. 1.3.2),  Z  is  the  depth' 
term  with  no  implied  treatment  of  pore  pressure.  Therefore,  at  the  point 
of  interest,  *  is  assumed  to  be  zero,  i.e,  at  the  water  table.  If  hydrostatic 
conditions  are  assumed,  as  in  figure  4.3,  Cl  can  be  calculated  at  a  point 
above  or  below  a  water  table.  The  Z  term  in  equation  4. 1 .3.2  is  replaced 
with  (Z  ♦  *  )  and  the  new  situation  is  shown  in  figure  4.4. 

The  original  Rohani  and  Baladi  situation  is  shown  in  figure  4.4a  and  the 
proposed  situation  in  figure  4.4b.  The  proposed  situation  shows  a  point 
of  interest,  @,  where  the  soil  suction,  y ,  is  known.  Hydrostatic  conditions 
(figure  4.3)  are  assumed  and  therefore  the  water  table  is  f  inches  below 
point  @  Therefore  to  calculate  Cl  at  a  point  <§>,  1  in  equation  4. 1.3. 2  is 
replaced  by  (Z  +  *  ). 

This  treatment  is  easy  to  include  and  was  incorporated  as  a  first  attempt 
to  include  f  in  the  calculation  of  Cl  The  major  problem  with  this 
treatment,  is  that  it  is  no  longer  a  derivable  physical  relationship  and 

agciimofc  hurtmct-aHr  rntvm lntvs  ahnu f>  anri  holnw  t-ho  n/atar  fahlia _ 


(a)  Original  Rohani  ana 
Baladi  Situation 


(b)  assumes  hydrostatic 
conditions;  water  table 
is  U  inches  below 
where  U  is  thesoil 
suction  at  point 


The  fundamental  equations  used  for  deriving  the  Rohani  and  Baiadi 
relationship  were  as  follows;- 

By  definition,  Cl  is  given  as 

Cl  -  4Fz/ttD2  eq.  4. 1.3.4 

where  the  resistive  force,  F  ,  is  given  by 

L 

Fz  =  J0  (^tan  a  +  T  )2nrdn  eq.  4. 1 .3.5 

where  the  shear  stress,  T, is  given  by 

T  -  C  ♦  6tan  0  eq.  4. 1 .3.6 

and 

r  *  radius  of  a  finite  frustum  of  the  cone  =  n  tan  ct 
6  -  normal  stress 

dn  -  width  of  a  finite  frustum  of  the  cone  (figure  4.2) 

Coiumb's  relationship  (equation  4. 1.3.6)  could  be  replaced  by  the 
effective  stress  relationship;- 

s'  =  C' (d- y  )tan  o’  eq.  4. 1.3.7 

This  treatment  has  the  problem  of  relating  s’  and  Cl  but  indicates  a 
possibility  for  further  research. 


Fredlund's  (1978)  approach  is  a  theoretically  sound  estimation  of  soil 
shear  strength  under  pore  pressure  conditions,  which  may  be  either 
positive  or  negative  (figures  4.4  and  4.5). 

Fredlund's  equation  is  given  by:- 

7tn)  =  C  +  [6(n)  -  ya]  tan  0  ♦  ( *a  -  yw)  tan  0b  eq.  4. 1.3.8 

where 

s  pore  air  pressure 
f  w  =  pore  water  pressure 

0b  -  friction  angle;  for  given  (6n-ipa)  gradient  between  (  ya-  yw  ) 
and  strength  (figure  4.5) 

It  would  therefore  be  most  appropriate  to  replace  the  Columb  equation 
(equation  4. 1.3.6)  with  the  Fredlund  equation  and  solve  for  Cl.  A  full 
technical  description  of  this  method  is  given  in  section  4.1.4  as  the 
method  to  be  used  in  the  BSSS  for  calculating  Cl. 


4. 1 .4  Technical  Description  of  Rederived  Roham  and  Baladi  Relationship 
Using  Fredlund's  Equation  for  Soil  Shear  Strength 

The  key  equations  from  Roham  and  Baladi  (198!)  are. 


Cl  -  4F.  /  ttD2 


eq.  4. 1 .4. 1 


Fz  =  JQ  [6(n)tan  « +  7(n)]  2-nr(n)dn 


eq.  4. 1.4.2 


where  the  expression  for  the  internal  pressure  for  an  expanding  spherical 
cavity  in  an  unbounded  elastic-plastic  medium  is  given  by  vesic  (1972):- 


6  =  3(q  ♦  Ccot  0)  (1  ♦  sin  0)  (  G_  )m  -  Ccot  0 

(3  -  sin  0)  (C  +  qtano)  eq.  4. 1.4.3 


which  can  be  used  to  define  6(n)  in  equation  4. 1 .4.2  as:- 

6(n)  =  3(q(n)  ♦  Ccot  0)  (1  ♦  sin  0)  (  G  )m  -  Ccot  0 

(3  -  sin  0)  (C  ♦  q(n)tan  0) 

eq.  4. 1 .4.4 

and 

r(n)  =  ntana  eq.  4. 1.4.5 

q(n)  =  (Z  L  -  n)y  eq.  4. 1.4.6 

Fredlund's  Equation 

Tin)  =  C  +  (6(n)  -  fa)tan  0  *  ( y a  -  fw)tan  0b  eq.  4. 1.4.7 

m  -  4sin  0/3(1  ♦  sin  0)  eq.  4. 1 .4.8 

For  the  calculation  the  following  are'constant:- 
<x,  C,  0,  G,  Z,  L,  y 

Solve  d(n)tancc+  7fn)  through  equations  4. 1.4.4  and  4. 1.4.7- 

6(n)tan  a  ♦  7(n)  *  C  -  f8tan  0  ♦  (  f a  -  yw)tan  0b  +  6(n)(tan  a  ♦  tan  0) 

eq.  4. 1.4.9 


Substitute  equation  4. 1.4.9  into  equation  4. 1.4.1- 


i 

Fz  «  2tt  J0  ntan  <x  [c  -  * atan  0  +  ( * a  -  *w)tan  0b 
=  > 

L 

=  2Titan  a  (C  -  f  atan  0  ♦  ( *a  -  yw)tan  0b  JQ  ndn 

L 

♦  2ntan  a  (tan  a +  tan  0)  J  n6(n)dn 

=> 

*  n(  C  -  f atan  0  +  ( f a  -  fw)tan  0b)L2tan  a 

L 

+  2TTtan  a  (tan  «, ♦  tan  0)  JQ  n6(n)dn 

=  tt(  C  -  fatan  0  *  ( *a  -  fw)tan  0b)L2tan  a 
-  nCLtana(tanacot  0  ♦  1 ) 

L 

♦  2ntan  *  (tan  <x +  tan  0)  JQ  n6'  (n)dn 


6(n)(tan*  +  tan  0)] 

eq.  4.1.4.10 


eq.  4. 1.4. 1 1 


where  6'  (n)  =  6(n)  ♦  Ccot  0 


eq.  4.1.4.12 


Expand  equation  4. 1.4.4  by  substituting  equation  4.1.4.12- 
=  > 


6‘  (n)  =  3(q(n)  ♦  Ccot  0)  ( 1  ♦  sin  0)  (  6  )m 

(3  -  sin  0)  (C  ♦  q(n)tan  0)  eq.  4. 1 .4. 1 3 


Re-arrange  equation  4. 1.4.8 
=> 

sin  0  =  3m  /  (4- 3m)  eq.  4. 1.4. 14 


Re-arrange  equation  4. 1 .4. 1 3 
=> 

6*(n)  =  3(1  ♦  sin  0)  Gm  q(n)  +  Ccot0 

(3  -  sin  0)  (q(n)tan  0  +  C)m 


311  ♦  Sin  g)  Gm 
(3  -  sin  0) 


q(n)  ♦  Ccot  0 

[tan  0(q(n)tan  0  *  Ccot  <a)V 


=  > 

m 

3(  1  *  sin  0)  G  [q(n)  ♦  Ccot  0  ],-m 

(3  -  sin  0)  (tan  0)m 


Substitute  equation  4. 1.4.6 


(3  -  sin  0)  (tan  0)m 


( 

t 


dn 


1-m 


n[Z+L+(C/  y  )cot  0  -  n]1_,indn 


L 

2  y  1-nn  J  -  [z+L+(C/  Y  )COt  0  -  n  -  (Z+L+(C/  Y  )cot  0)] 
x  [2* LHC/  y  )cot  0  -  n]  ,_mdn 


L 

2  y  1_fn  (Z+L+(C/  y  )cot  0)  JQ  [Z+L+(C/  y  )cot  0  -  n]  1_mdn 

L 

-  2  y  1"m  J0  [Z+L+(C/  y  )cot  0  -  n]  2_,T,dn 


L 

2  y  ,_m  (Z+L+(C/  y  )cot  0)  [(Z+L+(C/y)cot0-n) 2_fn  ] 

[  -(2-m)  ]0 


-  2  y  (Z+L+(C/  y  )cot  0)  (Z+(C/  y  toot  0Km 

2-m 


♦  2  y  1_fn  (Z+L+(C/  y  )cot  0)  (Z+L+(C/  y  too t  a)2-™ 

2-m 


♦  2  y  ,“fn  UlLLl  y  toot  a)2-™ 
3-m 


-Iv^CM-^C/ytoot  e)3^ 
3-m 


-  Iy L.-l=a  (Z+L+(C/  y  )cot  0)  (Z*(C/y)cot  0)2'm 
2-m 


♦  I  y  ,~m  (Z+L+(C/  y  )cot  0) 3_m  ( I  /(2-m)  -  1  /(3-m)) 

♦  22y_irQ(Z+(C/y)COt0)3-m 
3-m 


therefore  ■> 

L 

|0  n6'  (n)dn  «  Ly rj=*  (Z+(C/  y  )cot  0)3_m 
3-m 

♦  (Z+L+(C/  y  )cot  e)3*™ 

(2-m)(  3-m) 


-  I_y_—  (Z+L+(C/  y  )cot  0)  iZHU  y  )cot  0)2‘m 
2-m 


(Z+Lf(C/  y  )cot  0)°'m 

(2-mX  3-m) 


-  _  (Z+(C/  y  )cot  0)3'm 

(2-m)(  3-m) 


-  L(Z+(C/  y  )cot  0)2_m 

2-m  eq.  4.1.4.16 


Now  note  that  since  m  »  4sin  0 

3(1 ♦sin  0) 


and  hence  sine  =  3m 
4-3m 


3Uts.ln.gI 
3-sin  0 


4sln.g— 

m(3-sin  0) 


4x  3m  x  J_  x 
4-3m  m 


1 

(3-3m)/(4-3m) 


=  12  x  4-3m  =  J_ 

4-3m  12-9m-3m  1-m 


therefore 


J _  (6  cot  0)m 

1-m 


eq.  4.1.4.17 
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Substitute  equations  4. 1 .4. 1 6  and  4. 1 .4. 1 7  into  equation  4. 1  .4.  1 1 

Fz  =  277tan  ccttan  a.  ♦  tan  0)  (G  cot  g)m  y  1-m 
(?-m)(2-m)(3-m) 

X  {(Z+L+(C/  y  )C0t  0)3_m  -  (Z*(C/  y  )C0t  0)3‘m  -  (3-m)L(Z+(C/  y  )cot  0)2'm} 

-  Ti(Ctan  a  cot  0  -  f8tan  0  ♦  ( ya  -  fw)tan  0b)L2tan  a 

eq.  4.1.4.18 

Substitute  equation  4.1.4.18  into  equation  4. 1.4.1  and  therefore  the 
rederived  Rohanl  and  Baladi  relationship  using  the  Fredlund  equation  may 
be  expressed  as- 

Cl  -  4x2ntan«.(tana^  tan  0)  (Gcot0)g1'fn 
TTD2(1-m)(2-m)(3-m) 

x  {(Z*L*(C/  y  )cot  0)3_nri  -  (Z*(C/  y  )cot  0)3_m  -  (3-m)L(Z*(C/  y  )cot  0)2’m} 

-  4IL  (Ctan  a  cot  0  -  ipatan  0  +  ( fa  -  f w)tan  0b)L2tan  <x 
nD2 

=  > 

Stan  a  (tan  a*  tan  0)  (Gcot  0)  y 1_m 
D2(  1-m)(2-m)(3-m) 

X  {(Z*L*(C/  y  )cot  0)3_m  -  (Z*(C/  y  )cot  0)3_m  -  (3-m)L(Z*(C/  y  )cot  0)2_m} 

-  ±  (Ctan  a  cot  0  -  w  tan  0  ♦  ( w  -  ■  )tan  0b)l2tan  a 

3  '3  1  W 
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The  reflection  properties  of  natural  surfaces  are  of  interest  in 
meteorologically  related  problems  because  of  their  influence  on  the 
radiation  budget  of  the  atmosphere.  Measurements  of  reflection  on  the 
field  scale  have  usually  been  made  by  pyranometers,  producing  a  range  of 
albedo  (i.e.  the  ratio  of  outgoing  to  incoming  radiation  of  a  surface)  for  a 
'typical'  vegetated  surface.  Models  to  predict  the  albedo  of  a  surface  from 
its  physical  characteristics,  such  as  the  Seller's  two  stream 
approximation  model  (1972),  have  proved  both  complex  and  difficult  to 
validate. 

This  section  investigates  why  an  estimation  of  albedo  is  important  in  the 
BSSS,  the  accuracy  to  which  albedo  can  be  estimated  from  existing  data 
for  various  surfaces,  and,  the  effect  of  the  maximum  possible  error 
induced  by  the  albedo  input  parameter. 


The  reflection  of  energy  from  vegetated  surfaces  is  strongly  anisotropic 
in  behaviour.  Providing  the  vegetated  surface  is  snow  and  ice  free,  the 
variation  of  reflection  is  dependent  on  six  primary  variables  (Oke,  1979, 
Kriebel,  1977):  locality,  time,  vegetation  characteristics,  leaf  wetness, 
wavelength,  amount  and  angular  distribution  of  the  incident  radiation. 
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The  calculation  of  evaporation  by  a  non-tsothermal  method  (Khale,  1977) 
has  been  described  in  section  3.4,  where  the  key  relationship  was 
described  by:- 

5*(l-a  )[l-A(u",z)](0.349)S0cos  z  eq.  2021 1g.2 

+  ( 1  -*  )  [( 1  ix0)/(  1 1X05^)3(0.65 1  )SQcos  z 

where  S  =  incoming  radiation  at  the  ground  with  no  cloud  cover 
ag  =  surface  albedo 
=  average  ground  albedo 

*o  =  atmospheric  albedo  for  Raleigh  scattering ,  equal  to 
0.085  -  0.247  1oglo  [(ps/p0)co«  z] 
ps  »  surface  pressure 
po  ■  1000  mb 

z  =  zenith  angle  of  the  sun  as  a  function  of  the  time  of  day 
and  year 

A(u",z)  =  Mugge  -  Moller  absorption  function,  equal  to 
0.271(u*secz)0803 

u*  =  effective  water  vapour  content  of  the  atmosphere 
S0  =  solar  radiation  incident  on  top  of  the  atmosphere 

(0.349)S0  =  amount  of  solar  radiation  of  wavelength  >  0  9  urn 
(0.651  )S  =  amount  of  solar  radiation  of  wavelength  <  0.9  pm 
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From  equation  2021 1  g.2,  three  albedo  terms  are  required  - 
The  determination  of  <x0  is  well  established  (Khale,  1977)  but 
<*q  and  jjg  are  more  problematic  and  are  discussed  below 


The  influence  of  a  variation  inag  on  total  evaporation  is  shown  in  figure 

4.6.  This  degree  of  sensitivity  implies  that  when  evaporation  is  the 
predominant  process  affecting  the  top  soil  layers,  the  value  of  albedo  may 
be  important  In  RC1  calculations.  A  sensitivity  analysis  (figure  4.7)  of 
RCI  to  albedo  indicates  that  providing  the  total  range  of  albedo  for  each 
type  of  surface  is  +/-  12%,  the  variation  in  RCI  will  not  exceed  10%.  This 
will  enable  the  empirical  tables  of  albedo  for  different  vegetations  (table 
4. 1 )  to  be  used  w  ith  some  confidence.  The  possible  variations  of  albedo  in 
excess  of  the  tabulated  ranges  is  discussed  in  section  4.2.3. 

4.2.3  Major  Contributors  to  Albedo  Variation 

4.2.3. 1  Locality  and  Time 

Site  location  may  be  described  in  terms  of  relative  solar  altitude  Figure 
4.8  shows  results  for  grass,  kale,  oak(bare  and  leaved),  spruce  and  pine 
taken  over  various  solar  altitudes.  The  variation  of  solar  altitude 
throughout  the  day  and  throughout  the  year  may  have  a  serious  influence  on 
albedo  and  hence  on  RCI  calculations.  The  following  table  indicates  the 
magnitude  of  variation  expected 


(From  Sellers,  1965;  list,  1966;  Paterson,  1969;  and 

Montelth,  1973) 


SURFACE 

REMARKS 

ALBEDO 

a 

EMISSI VITY 

£ 

Soils 

Dark,  wet 

Light,  dry 

0.05-0.40 

0.90-0.98 

Desert 

0.20-0.45 

0.84-0.91 

Grass 

Long(l.Om) 

Short  (0.02m) 

0.16- 

0.26 

0.90- 

0.95 

Agricultural  Crops 
Tundra 

0.18-0.25 

0.90-0.99 

Orchards 

0.15-0.20 

Forests 

Deciduous 

Bare 

Leaved 

0.15- 

0.20 

0.97- 

0.98 

Coniferous 

0.05-0.15 

0.97-0.99 

Water 

Small  zenith  angle 
Large  zenith  angle 

0.03-0.10 

0.10-1.00 

0.92-0.97 

0.92-0.97 

Snow 

Old 

Fresh 

0.40- 

0.95 

0.82- 

0.99 

Ice 


Sea 

Glacier 


0.30-0.45 

0.20-0.40 


092-097 


.¥  i  * 


.short  grass 


-  kale 


oak  (foliage) 


solar  altitude  (degrees) 


Relation  between  the  albedo  of  vegetation  and  solar 
altitude  on  sunny  days.  Grass  &  kale  (Montelth  and 
Szelcz,  1961);  oak  forest  (Rauner,  1 976);  spruce  forest 
(Jarvis  et  al.,  1 976);  scots  pine  forest  (Stewart,  1971) 


SURFACE 

RANGE 

%  CHANGE  IN 

PREDICTED  % 

ALBEDO 

CHANGE  IN  RCI 

Short  grass 

.30-24 

6% 

2.4% 

Kale 

.27-.  19 

8% 

3.2% 

Oak  (foliage) 

.30-.  16 

14% 

5.6% 

Oak  (bare) 

.25-13 

12% 

4,8% 

Spruce 

.18-12 

6% 

2,4% 

Pine 

.20-08 

12% 

4.8% 

Figure  4.9  indicates  that  seasonal  variations  of  solar  altitude  on  albedo 
maybe  small  but  that  the  daily  variation  may  be  important.  The  extent  of 
the  variation  throughout  the  day  is  summarized  in  the  following  table: 


SURFACE 

RANGE 

%  CHANGE  IN 

PREDICTED  % 

ALBEDO 

CHANGE  IN  RCI 

Clearing 

.195-135 

6% 

2.4% 

Forest 

.166-.  1 1 

5.5% 

2.2% 

It  is  noticeable  from  figure  4.9  that  natural  surfaces  reflect  strongly  at 
low  angles  of  incidence,  i.e.  the  highest  albedos  occur  at  times  of  low 
energy  input  and  it  may  therefore  be  said  that  the  effect  of  this  diurnal 
variation  is  small. 

The  results  above  indicate  that  the  influence  of  locality  and  time  on 
albedo  and  therefore  on  RCi  calculations  is  relatively  small.  It  will  be  the 
effect  of  combining  all  the  separate  small  variations  into  a  total  possible 
variation'  that  shall  be  of  interest  and  will  be  discussed  below. 
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The  influence  of  vegetation  characteristics  such  as  leaf  orientation  and 
height  have  been  shown  by  Oke  (1978)  to  have  an  effect  on  the  albedo  of  a 
vegetated  surface.  The  scale  on  which  we  are  wanting  to  consider  albedo 
is  at  the  field  scale  and  therefore  the  effect  of  leaf  orientation  shall  be 
considered  negligible.  The  effect  of  vegetation  height  at  this  scale  on 
albedo  can  be  seen  in  figure  4.10  From  this  information  the  grass, 
small  bush  and  tree  canopies  have  been  assessed  as  follows: 


SURFACE 

RANGE 

%  CHANGE  IN 

PREDICTED  % 

ALBEDO 

CHANGE  IN  RC 

Grass 

0 

0% 

0% 

Bushes 

.255-23 

2.5% 

0.6% 

(0.5-2.0  mi 

Trees  ( 1  -8  m) 

.25-17 

8% 

3.2% 

From  these  calculations  it  can  be  seen  that  when  considering  trees,  the 
height  of  them  could  be  important  in  albedo  estimation.  As  trees  are  a 
difficult  type  of  vegetation  to  consider  because  of  the  interception  and 
transpiration  which  are  not  allowed  for  as  yet  in  the  8555,  it  is  therefore 
proposed  that  the  small  effect  that  variations  in  vegetation  height  might 
induce  on  other  vegetated  surfaces  may  be  considered  almost  negligible 
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Oke  (1978)  and  Monteith  ( 196! )  found  leaf  wetness  to  be  significantly 
influential  in  their  albedo  measurements  Greater  reflection  from  short 
grass  occurred  when  wet  -  either  after  rain  or  a  dewy  night.  Lockwood 
(1985)  estimates  that  a  difference  of  6-8%  in  albedo  measurements  was 
observed  between  moist  and  dry  soil.  This  difference  wouid  be  seen  as  a 
2.4-3.2%  change  in  the  RCI  calculation. 

When  leaf  wetness  occurred  after  a  dewy  night,  it  could  be  expected  that 
the  reflection  might  be  similar  to  that  of  a  water  surface.  Table  4. 1 
shows  some  'typical'  albedo  values  for  a  water  surface  which  indicates 
that  the  influence  of  wet  leaves  could  be  very  important  at  low  zenith 
angles,  but  as  this  is  when  the  solar  input  is  at  its  weakest  the  degree  of 
influence  is  significantly  reduced. 


4.2.3.4  Amount  and  Angular  Distribution  of  Incident  Radiation 

The  diurnal  variation  of  radiation  can  be  seen  in  figure  4. 1 1  The  hours 
between  0600  and  1800  can  be  considered  as  the  most  important  in 
evaporation  calculations.  This  is  also  therefore  the  time  period  to 
consider  the  reflection  properties  of  different  surfaces.  The  category  of 
radiation  is  also  important  -  either  direct  of  diffuse,  and  as  can  be  seen  in 
figure  4.1 1  the  difference  in  albedo  and  the  effect  on  RCI  calculations 
can  be  summarized  as  follows; 


URFACE 

RANGE 

%  CHANGE  IN 

PREDICTED  % 

ALBEDO 

CHANGE  INRCI 

Forest  (clear) 

.187-.  126 

6.1% 

2.44% 

Forest  (cloudy) 

I8-.14 

4% 

1  6% 

Clearing  (clear) 

.21-1  16 

9  4% 

3  8% 

Clearing  (cloudy) 

.142-.  128 

1.4% 

0.6% 

While  the  range  of  albedo  measurements  on  a  cloudy  day  is  reduced  from 
that  on  a  clear  day,  the  average  albedo  for  the  day  is  not  significantly 
altered.  As  the  radiation  during  an  overcast  dav  is  richer  in  diffuse 
radiation,  this  result  supports  the  theory  that  the  diurnal  variation  of  the 
albedo  is  primarily  a  result  of  the  nature  of  the  reflection  of  the  direct 
component  of  the  solar  radiation. 


4.2.3.5  Wavelength 

The  energy  emitted  by  the  sun  and  impinging  upon  the  Earth's  surface  has  a 
large  range  of  wavelengths,  i.e.  0,3  ,srm  -  several  metres  The  region  of 
this  spectrum  which  is  of  interest  to  this  application  is  0.5-2. 2  ,u m  as 
this  is  the  energy  'available  for  evaporation  (figure  4.12) 

There  are  many  tables  such  as  table  4. 1  .  whicn  detail  results  of  albedo 


measurements  as  a  range  within  the  typical'  albedo  of  a  surface  may  be 
expected  to  fall  These  values  are  integrated  over  the  0  5-2.2  u m 
waveband  and  are  therefore  suitable  for  the  estimations  required  in  the 
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Transmission 


Reflection 
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WAVELENGTH  (p) 

.  Idealized  relation  between  wavelength  and  the  reflectivity  (a), 
ransmissivity  (0  and  absorptivity  (a)  of  a  green  leaf  (after  Monteith,  1965  ). 
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From  equation  2021 1g.2  it  can  oe  seen  that  the  equation  is  solit  into 
two  parts  according  to  wavelength,  i.e.  it  is  defined  that  65. 1  %  of  the 
relevant  solar  radiation  has  a  wavelength  less  than  0  9  fi m,  and  therefore 
that  34.9  %  of  relevant  solar  radiation  has  wavelengths  greater  than 
0.9  ,/im 

Work  carried  out  by  Kriebel  ( 1 977)  determined  that  variation  of  reflection 
with  wavelength  is  often  marked  (figure  4.12  ).  There  are  several 
methods  which  attempt  to  define  reflection  quantities,  such  as,  the 
spectral  bidirectional  reflectance  distribution  function,  Nicodemus 
(1970),  and  Kasten  and  Rascke  (1974);  or  the  spectral  biconical 
reflectance  factor,  Kriebel  (1977).  The  methodology  of  Nicodemus 
involves  conical  geometry  and  eighteen  possible  reflection  properties, 
whereas  Kriebel's  spectral  biconical  reflectance  factor  was  determined 
from  measurements  of  albedo  made  over  seven  narrow  spectral  intervals 
(table  4.2).  The  methodology  and  detailed  results  are  given  in  Kriebel 
(1977).  Table  4.3  provides  an  example  of  the  data  collected  from  four 
vegetation  covers.  The  results  have  been  divided  into  two  parts  as  defined 
by  equation  2021  lg.2  and  the  average  albedos  over  these  two  parts  of 
the  spectrum  have  been  calculated  for  use  in  a  sensitivity  analysis 
(section  4.2.3.6) 

By  considering  albedo  as  a  function  of  the  wavelength,  Kriebel  ( 1978)  was 
able  to  demonstrate  (figures  4. 13  -  4. 16)  that  the  variation  of  albedo 
with  solar  altitude  at  wavelengths  greater  than  0.9  ,//m  was  very  small 


Each  table  of  the  spectral  reflectance  factor  is  characterized  by  the 
surface  type  and  wavelength  (/m).  The  measurements  are  taken  at  various 
zenith  angles  (THETAR)  and  zenith  angle  of  incidence  (THETAI).  To  each 
pair  of  THETAR  and  THEATI  belongs  a  block  of  seven  values  corresponding 
to  the  seven  azimuths  (PHI). 

SURFACE  TYPE;  PASTURE 


wavelength  =  0.429  jim 


THETAR 

0 

10 

20 

30 

40 

50 

60 

70 

80 

90 

THETAI  PHI 

0 

.0197 

.0196 

.0195 

.0183 

.0189 

.0193 

.0188 

.0186 

.0139 

.0141 

30 

.0197 

.0196 

.0195 

.0183 

.0189 

.0192 

.0188 

.0186 

.0139 

.0141 

60 

.0197 

.0196 

.0195 

.0183 

.0189 

.0192 

.0188 

.0186 

.0139 

.0141 

0 

90 

.0197 

.0196 

.0195 

.0183 

.0189 

.0192 

.0188 

.0186 

.0139 

.0141 

120 

.0197 

.0196 

.0)95 

.0183 

.0189 

.0192 

.0188 

,0186 

.0139 

.0141 

150 

.0197 

.0196 

.0195 

.0183 

.0189 

,0192 

.0188 

,0186 

.0139 

.0141 

180 

.0197 

.0196 

.0195 

.0183 

,0189 

.0192 

.0188 

.0186 

.0138 

.0141 

0 

.0223 

.0195 

.0213 

.0190 

.0202 

.0163 

.0196 

.0188 

.0155 

.0151 

30 

.0223 

.0198 

.0209 

,0192 

.0204 

.0178 

.0195 

.0197 

.0153 

.0137 

60 

.0222 

.0185 

.0208 

.0197 

.0191 

.0164 

.0191 

.0187 

.0151 

.0139 

20 

90 

.0222 

.0214 

.0204 

.0204 

.0210 

.0207 

.0240 

.0221 

.0161 

.0142 

120 

.0222 

.0216 

.0200 

.0214 

.0208 

.0205 

.0241 

.0222 

.0159 

.0142 

150 

.0221 

.0219 

.0220 

.0210 

.0206 

.0203 

.0244 

.0228 

.0169 

0147 

180 

.0221 

.0221 

.0222 

.0209 

.0212 

.0223 

,0240 

.0227 

.0171 

0149 

30 

• 

■ 

• 

■ 

40 

' 

' 

' 

i 

50 

' 

-  * 

i 

• 

60 

* 

' 

' 

70 

’ 

‘ 

0  . 

1000 

1100  . 

1200  . 
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4000 

80 

30  . 

1000  . 

M 

1100  . 

1200  , 

1300  . 

1400  , 

M 

1500  . 

1700  . 

2000 

3000 

4000 

180 

1000 

1100  . 

1200 

1300 

1400 

1500 

1700 

2000 

3000 

4000 

Similar  tables  cover  measurements  at  wavelengths:-  0.52 1 , 0.606,  0.866, 
1.243,  1.66  and  2.2  jim. 
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The  sensitivity  analysis  of  RCI  calculations  to  albedo  was  carried  out  in 
two  parts: 


(1)  using  a  general  albedo  term  <xg  in  both  parts  of  equation  2021 1  g.2, 
(ID  using  two  albedo  terms  ag1  andctg2,i.e.  albedo  for  wavelengths  greater 
than  0.9  jtrc\  and  less  than  0.9  m m  respectively. 


Results  of  (i)  are  shown  in  figure  4.7  where  the  influence  of  both 
different  soil  type  and  time  of  year  are  demonstrated.  Considering  the 
worst  possible  case,  a  1%  increase  in  albedo  can  result  in  a  0.3%  decrease 
in  RCI  values.  Using  this  information,  the  relative  importance  of  those 
factors  considered  most  influential  on  albedo  variation 
(Henderson-Sellers,  1986)  was  determined  (section  4.2.3.5) 

The  second  sensitivity  analysis  using  the  two  different  albedo  terms 
showed  (figure  4. 1 7)  that  the  term  is  the  most  influential.  The 

maximum  possible  influence  of  solar  altitude  and  vegetation  height  are 
calculated  in  table  4.3.  From  these  results,  it  can  be  seen  that  by  using 
the  two  different  albedos  for  their  respective  wavelengths,  the  total  RCI 
variation  possible  is  reduced  from  43%  to  26%  which  is  a  significant 
improvement.  Thus  equation  2021 1  g.2  can  be  stated  as:- 


S  -  ( 1  -  agl )  [  1  -A(u‘,z)](0.349)5ocos  Z 
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(From  Kriebel,  1979) 


This  analysis  has  considered  the  worst  possible  case.  By  including  the  use 
of  two  albedos  in  equation  2021 lg.2,  the  total  variation  in  RCI  to 
possible  errors  in  albedo  estimation  is  26%,  i.e.  +/-  13%  around  a  central 
value.  This  is  considered  a  marked  improvement  on  the  use  of  one  spectral 
albedo. 

This  possible  error  will  be  further  reduced  when  rain  occurs,  at  different 
times  of  the  year,  and  over  different  soil  surfaces.  It  is  proposed  that 
when  sufficient  data  exists  for  a  'typical'  surface,  that  the  version  of 
equation  2021  lg.2  stated  in  section  4.2.3.5  be  used  to  minimize  the 
possible  errors  induced  by  variations  in  albedo.  These  variations  in  albedo 
can  be  difficult  to  quantify,  therefore  the  original  relationship  will  be 
used  when  only  values  of  albedo  integrated  over  the  0.5-2.2  p m  spectrum 
3re  available.  It  is  expected  that  the  unaltered  version  of  equation 
2021  lg.2  will  be  sufficient  in  the  majority  of  cases 


The  main  purpose  of  this  project  is  'to  develop  an  operational  system  to 
predict  off-road  traff icability  on  a  km2  scale'.  Within  the  context  of  this 
project  the  precise  definition  of  the  term  ‘operational’  will  provide  some 
requirements  for  the  system.  The  genera!  requirements  set  out  in  section 
1.2  also  require  further  definition  (section  4.3.2).  These  requirements 
for  the  system  divide  into  several  techniques,  such  as,  data  bank 
development,  menu  driven  system  operation,  coding  design  and  system 
checking.  These  are  discussed  in  the  sections  below. 


4.3.2a  Construct  a  data  bank  facility  containing  information  which  will 
reduce  the  complexity  of  input  data. 

4.3.2b  Design  the  code  in  a  manner  that  facilitates  replacement  of 

subroutines,  that  identifies  subroutines  within  the  major  design 
modules. 

4.3.2c  Design  the  system  to  be  menu  driven. 

4.3.2d  Design  the  system  to  carry  out  basic  checks,  such  as,  whether 
input  data  files  exist,  etc. 
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In  an  effort  of  retain  parsimonious  data  requirements  a  method  of  using 
categories  of  soil  types  was  adopted.  A  choice  of  eleven  different  soil 
types  is  catered  for  (figure  7.3).  The  three  soil  layers  (figure  6.2)  may 
be  defined  by  any  of  the  eleven  soil  types.  Through  the  specification  of  the 
soil  type  the  system  accesses  a  data  bank  (algorithm  2021 1b,  section 
6.1.5)  to  determine  the  following:-  sand  content  (%),  clay  content  (%), 
saturated  water  content,  saturated  hydraulic  conductivity,  mineral  bulk 
density  and  bubbling  pressure,  These  input  parameters  are  required  for  the 
calculation  of  the  soil  moisture  characteristic  curves  (section  3.2). 

Research  carried  out  by  Brakensiek  and  Rawls  (1983)  produced  a  set  of 
soil  classification  triangles  which  give  ranges  for  the  above  parameters 
based  on  5000  soil  data  sets.  An  example  of  the  soil  triangle  for  bubbling 
pressure  is  given  in  figure  4. 1 8.  The  average  and  one  standard  deviation 
was  identified  and  the  the  type  of  distribution  determined,  It  should  be 
noted  that  at  this  stage  no  allowance  has  been  made  for  the  effects  of 
organic  matter  content  or  changes  in  porosity  on  these  values.  A  value  for 
each  parameter  is  then  calculated  from  the  given  distribution  (algorithm 
2021 1b)  for  use  in  the  BSSS. 

This  is  in  effect  an  automatic  'look-up  table'  and  substantially  reduces  the 
amount  of  work  and  decision  making  for  the  user.  The  use  of  a  random 
selection  from  each  parameter  distribution  includes  a  measure  of  the 
uncertainty  and  variability  involved  in  trying  to  estimate  these 
parameters. 


The  develooment  of  this  facility  satisfies  requirement  4.3.2a.  The 
further  development  to  Include  the  effect  of  organic  matter  and  porosity 
changes  in  this  facility  is  further  discussed  in  section  10. 


4,1.1 ,2-Sy.s.tem.D.£iiflD. 

The  adoption  of  the  strategy  discussed  in  section  1.4  enables  the  code  to 
be  written  in  a  series  of  independent  subroutines,  any  of  which  would  be 
easy  to  replace  with  another  and  therefore  satisfying  requirement 
4.3.2b.  The  naming  of  the  subroutines  has  been  carried  out  under  the 
following  rules:- 

(a)  Subroutines  of  the  BSSS  start  with  a  ’b\ 

(b)  Subroutines  of  the  VSA52  start  with  a  V. 

(c)  Subroutines  of  the  route  evaluation  scheme  start  with  a  t*. 

(d)  Subroutines  of  the  grid  and  optimum  route  scheme  start  with  a  'r'. 

(e)  The  remainder  of  the  name,  after  the  initial  letter,  should  be 
something  meaningful,  e.g.  'bcntl'  refers  to  the  BSSS  control 
subroutine,  'vlatflo'  refers  to  the  calculation  of  lateral  flow  in  the 
VSAS2,  and  of  course  'link'  links  all  the  different  schemes  together  to 
form  the  SORTS. 

By  adopting  this  naming  strategy  the  further  development  and  maintenance 
of  the  system  should  be  much  easier.  This  is  considered  an  important  but 
often  neglected  facet  of  user  friendliness. 


The  running  of  the  BORTS  is  controlled  by  a  series  of  menu  driven 
decisions  made  by  the  user.  Section  9  gives  examples  of  how  to  run  the 
various  schemes  within  the  BORTS.  The  information  given  in  plain  text  is 
what  the  user  will  see  on  the  screen,  the  user  is  expected  to  make  choices 
(outlined  text)  or  input  names  of  files  as  directed  by  the  system. 

The  facility  also  allows  the  user  to  edit  input  files  by  category  and  the 
specific  name.  This  system  provides  the  existing  value  of  the  variable  or 
parameter  and  asks  for  a  new  value.  This  is  considered  a  vast 
improvement  in  that  the  user  is  able  to  interrogate  the  input  files  through 
specific  variable  names  rather  than  having  to  identify  its  position  within 
a  data  file.  This  eliminates  the  user  having  to  deal  with  all  the  various 
formats  that  may  exist  in  the  input  data  files.  This  facility  has  also  been 
added  to  the  VSAS2  as  the  input  for  this  system  is  much  more  complex 
than  that  of  the  BS5S. 

The  basic  system  checks  carried  out  include  checking  if  an  Input  file 
exists  though  it  is  unable  to  check  whether  the  use''  has  specified  the 
correct  one.  When  the  system  asks  for  an  output  file  and  the  user  returns 
one  that  already  exists,  a  message  will  ask  the  user  to  confirm  that  they 
wish  to  overwrite  that  existing  file.  Out  of  range  replies  to  the  menus  are 
also  catered  for  in  that  the  user  will  be  asked  to  re-enter  their  reply. 


This  section  has  dealt  with  the  improved  BSSS  model  components.  It 
should  also  be  noted  that  the  development  of  the  soil  strength  relationship 
is  not  limited  in  application  to  the  BSSS,  but  has  also  been  added  to  the 
VSAS2.  Also,  the  development  of  a  menu  driven  system  making  basic 
checks  has  been  added  to  the  V5AS2  and  the  subroutines  have  been 
renamed  from  those  of  Whitelaw's  (1987). 

The  development  of  an  initial  strategy  to  deal  with  the  problem  of  albedo 
within  the  non-isothermal  evaporation  routine  is  considered  an  important 
step  forward  and  will  be  great  interest  in  further  development  and 
evaporation  studies. 

The  increased  user  friendliness  of  the  scheme  for  both  the  user  and 
developer  is  a  major  step  towards  the  prime  objective.  With  the 
techniques  discussed  in  section  4.3.3. 3  applied  to  the  route  management 
scheme  (section  5)  the  BORTS  will  have  included  aspects  of  content, 
application  and  utility  and  therefore  a  well  balanced  system. 
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The  development  of  the  B5S5  and  the  adaptation  of  the  VSA52  enable  the 
prediction  of  soil  strength  and  hence  off-road  trafficability  with  variable 
temporal  resolution.  The  B5SS  simulates  the  soil  water  physics  of  a 
column,  while  the  VSAS2  simulates  the  soil  water  physics  of  a  sloping 
segment.  The  two  systems  have  both  advantages  and  drawbacks  over  each 
other  (section  8),  but  as  yet  the  spatial  resolution  of  the  schemes  has 
not  been  discussed.  This  section  sets  out  the  requirements  and 
methodologies  developed  to  include  spatial  resolution  and  apply  the  RCI 
predictions  to  route  problems. 


The  initial  problem  of  trying  to  model  the  real  world  is  to  simplify  its 
complex  continuous  nature  into  something  that  is  identifiable  and 
discrete.  That  is,  to  represent  the  real  world  by  something  that  can  be 
handled  by  the  viewer'  The  ’viewer'  may  be  a  computer  system,  software, 
a  specialist  or  3  trained  user  and  the  degree  of  simplification  may  often 
be  dependent  on  all  these  'viewers'. 

Within  the  BORTS,  two  independent  schemes  exist  to  predict  off-road 
trafficability,  namely  the  B555  and  the  V5A52,  the  utility  of  which  are 
discussed  in  section  7.  Each  run  of  the  B555  has  a  set  of  clearly  defined 
input  information  and  can  therefore  be  said  to  represent  all  areas  which  , 
can  be  described  by  that  information.  When  that  information  cnanGes,  1  e 
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different  soil  type,  different  meteorological  or  site  conditions,  the  BS5S- 
is  run  with  the  appropriate  input  information. 

To  apply  this  concept  of  spatial  resolution  to  an  area,  a  clearly  defined 
strategy  of  simplifying  the  real  environment  must  be  formulated.  This 
strategy  must  include  the  restrictions  imposed  by  the  hardware,  software 
and  the  user.  Section  7.5  sets  out  the  guidelines  for  the  user  on  how  to 
set  up  a  grid  system  over  an  area.  The  important  site  characteristics 
affecting  the  set-up  of  a  grid  are  those  of  soil  type  and  topography  fi  e. 
initial  moisture  contents  and  biased  hydraulic  conductivities),  but  the 
user  may  at  their  discretion  also  include  the  influence  of  a  moving  storm 
across  an  area  in  the  meteorological  information. 

Having  decided  how  many  BS55  runs  can  be  made  with  the  required 
computer  time  (section  7.5)  and  consequently  the  grid  format  to  be  used 
to  represent  the  area,  the  user  can  use  the  V5A52  to  simulate  the 
processes  taking  place  in  one  or  more  of  the  grid  squares  (figure  6.1 1 ). 
The  increase  in  computer  resources  will  have  to  be  assessed  by  the  user 
(section  10) 

The  implication  of  being  able  to  represent  an  area  of  particular  interest 
will  be  of  great  importance  to  route  evaluation  or  selection  problems 
which  must  pass  through  that  particular  grid  square.  The  price  to  pay  for 
running  the  VSAS2  scheme  as  opposed  to  the  BSSS  will  be  in  the  increase 
in  both  computer  time  (section  10)  and  in  user  time  for  preparation  of 
the  input  information  (sections  6.2  and  7.3). 
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5.3  Calculation  of  Optimum  Route 

The  application  of  the  RCI  prea.ctions  along  with  their  representation  over 
an  area  defined  by  the  grid  system  discussed  above,  allows  optimum 
routes  to  be  determined.  The  optimum  route  must  combine  the  effects  of 
soil  strength  (RCI),  speed  of  travel  and  also  shortest  distance.  The 
calculation  of  the  optimum  route  from  a  specified  start  position  to  a 
specified  finish  position  will  be  dependent  on  the  following  factors:- 

(a)  Time  of  Journey  Start 

Throughout  the  duration  of  a  storm,  the  status  of  the  soil  surface  layers 
(figure  4. 1 )  will  alter  according  to  how  much  water  is  added  to  it  and  its 
initial  moisture  conditions.  The  critical  layers  as  shown  in  figure  4. 1 , 
will  be  subjected  to  drainage  and  may  be  affected  by  evaporation.  The  RCI 
over  the  area  will  therefore  be  liable  to  fluctuations  mirrorring  these 
processes.  Hence,  the  start  time  of  any  journey  may  affect  the  calculation 
of  the  optimum  route  from  start  to  finish. 

Using  the  predicted  RCI  library  (figure  5. 1 )  over  the  area,  it  would  be 
possible  to  calculate  the  optimum  route  at  each  time  interval  that  there 
are  RCI  values  for.  This  could  be  linked  in  with  the  RCI  restricted  travel 
speed  of  the  vehicle  over  the  route  and  the  probability  of  becoming  bogged 
down.  This  would  be  a  significant  aid  in  decision  making  for  not  only  the 
best  route  to  take,  but  also  the  best  time  to  start  that  journey.  An 
example  of  this  application  is  shown  in  figure  5.2  - 


(l)  Scenario  A  shows  time  =  hour  3'  when  the  vehicle  would  only  have  a 
negligible  chance  of  completing  any  route  without  bogging  down. 


Scenario  A 

Vehicle  will  only  have  a  negligible 
chance  of  completing  any  route 
without  bogging  down 


Scenario  B 

Vehicle  could  complete  route 
shown  in  three  hours 


Scenario  C 

Vehicle  could  complete  route 
shown  in  one  and  a  half  hours 


(it)  Scenario  B  shows  'time  =  hour  4'  when  the  vehicle  could  complete  the 


calculated  route  in  3  hours. 

Oil)  Scenario  C  shows  'time  =  hour  5’  when  another  route  becomes 
feasible  with  a  travel  time  of  1  1/2  hours. 

By  waiting  until  'time  =  hour  5'  a  small  area  which  was  previously 
unpassable  becomes  able  to  allow  the  passage  of  the  vehicle  and  so  allows 
the  route  in  scenario  C  to  be  used.  The  vehicle  completing  scenario  B  will 
arrive  at  its  destination  at  'time  =  hour  7,  whereas  the  vehicle  completing 
will  arrive  at  'time  =  hour  6.5'.  That  is,  by  waiting  an  hour  scenario  C 
becomes  not  only  the  faster  route  but  will  save  on  total  travel  time  and 
hence  fuel  resources. 


(b)  Approximate  Distances  involved 

As  the  vehicle  travels  across  the  area,  the  environment  is  continually 
changing  and  hence  the  state  of  the  soil  may  also  be  changing.  The 
distance  of  the  route  combined  with  the  speed  of  the  vehicle  become 
increasingly  important  as  distance  increases  and  speed  decreases. 

For  a  given  speed,  as  the  distance  increases  so  does  the  likelihood  of  the 
RCI  for  a  particular  sub-area  having  changed  from  'time  =  start  time .  it  is 
at  this  stage  that  the  area  represented  by  each  grid  square  and  the  output 
interval  of  RCI  values  must  be  considered.  For  example,  say  a  library  of 
RCI  value?  (figure  5. 1 )  has  been  created  at  hourly  intervals  for  a  grid 
with  grid  squares  of  approximately  5  km2,  ignoring  the  effect  of  RCI  on 
the  speed  of  the  vehicle,  assume  that  the  vehicle  is  moving  at  a  steady 
speed  of  20  kms  hr'1.  It  therefore  follows  that  if  the  journey  starts  3t 


time  =  hour  r,  that  after  the  vehicle  has  travelled  20  kms  or 
approximately  4  grid  squares  the  RCI  values  over  the  area  are  no  longer  oe 
represented  by  'time  =  hour  V  but  by  'time  =  hour  2’  and  should  accordingly 
be  changed  throughout  the  duration  of  the  journey. 


As  discussed  above,  an  important  facet  of  route  management  is  including 
the  effect  of  changing  RCI  values  throughout  the  duration  of  a  journey.  The 
point  at  which  the  next  set  of  RC!  values  predicted  for  the  grid  should  be 
implemented  depends  on  output  interval,  distance  covered  and  speed  of  the 
vehicle.  In  a  first  attempt  to  include  these  effects  an  average  speed 
across  the  area  is  assumed  and  the  point  at  which  the  RCI  library  is 
accessed  to  update  the  status  of  RCI  across  the  grid  always  happens  at 
grid  square  boundaries.  The  restrictions  of  these  assumptions  are  further 
discussed  in  section  8.  Initial  results  from  the  Ministry  of  Defence's 
DRIVEB  speed  prediction  model,  which  is  dependent  on  RCI  values,  3re 
discussed  in  section  10  with  respect  to  the  improvement  this  facility 
would  bring  to  a  second  generation  route  management  scheme. 


The  concepts  above  have  been  based  on  the  existence  of  a  library  of  PCI 
values  (figure  5. 1 )  which  can  be  both  created  at  different  output 
intervals  and  accessed  at  any  output  time.  The  calculation  of  an  optimum 
route  with  a  known  start  and  finish  grid  square  positions  will  be  based  on 
the  shortest  distance  and  the  largest  PCI  values  From  anv  grid  square 


position  the  RCI  values  of  the  3  grid  squares  in  the  major  direction  of 
movement  are  biased  according  to  the  shortest  distance.  The  grid  square 
with  the  largest  RCI  value  will  normally  be  chosen  (see  below  for 
exceptions).  This  will  have  important  implications  for  application  to 
route  speed  analysis. 


(e)  Errors  in  Logic  -  Looping  and  Dangling 

In  the  calculation  of  an  optimum  route  there  may  occur  two  errors  in 
logic:- 

(i)  Looping:-  Figure  5.3a  shows  the  situation  of  looping.  The  situation 
can  be  described  by  "move  7  depends  on  move  6  which  depends  on 

move  5  which  depends  on  move  7  which  depends  on  move  6 . ",  A 

check  must  be  included  in  the  optimum  route  calculation  to  ensure 
that  this  situation  is  not  allowed  to  occur. 

(ii)  Dangling:-  Figure  5.3b  shows  the  situation  of  dangiing.  The  situation 
shows  that  move  6  should  be  to  grid  square  A  but  that  this  move 
would  leave  the  route  unable  to  continue.  The  system  would  return 
that  a  route  is  not  possible  under  this  set  of  conditions.  The  correct 
decision  would  be  for  move  6  to  be  the  next  best  grid  square,  i.e 
square  B.  There  is  a  problem  in  allowing  for  this  type  of  logical  error 
in  that,  there  are  special  occasions  when  dangling'  can  be  accepted. 
These  will  include  when  it  happens  at  a  specified  start  grid  square 
and  when  it  happens  at  the  required  finish  grid  square. 
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FIGURE  5.3  ERRORS  IN  LOGIC 


(a)  Looping 


(b)  Dangling 
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The  situation  may  arise  where  not  only  does  a  route  have  specified  start 
and  finish  grid  squares,  but  might  also  have  one  or  more  specified 
intermediate  grid  squares  the  route  must  go  through.  This  type  of  problem 
can  be  treated  as  a  series  of  smaller  routes  where  the  intermediate  way 
points  are  considered  as  temporary  finish  positions. 

These  way  points  or  intermediate  grid  squares  may  be  represented  by¬ 
te)  a  BS5S  run, 

(b)  a  VSAS2  run,  or 

(c)  a  sub-grid  system  comprised  of  any  combination  of  B5S5  and/or 
V5A52  runs. 

The  representation  of  a  grid  square  by  a  sub-grid  system  could  have 
important  implications  for  restricted  routes  as  sub-routes  within  the  one 
grid  square  can  be  calculated.  The  sub-grid  system  could  also  be  used  to 
calculate  minimum  RC1  over  the  area  or  the  area  of  the  square  which  has 
RCI  values  below  some  predetermined  threshold  value 


The  evaluation  of  RCI  along  a  specified  route  will  have  important 
application  to  speed  prediction.  This  will  be  important  when  trying  to 
compare  several  different  routes.  Different  routes  will  have  different 
recovery  characteristics  when  the  scenarios  discussed  in  section  5.3(a) 
may  be  of  particular  application. 

The  evaluation  of  a  route  does  not  require  a  full  grid  set-up,  and  a  simple 
example  is  shown  in  figure  6. 1 7a.  The  user  has  only  to  describe  the 
route  as  a  series  of  nodes  having  a  distance  along  the  route,  an  identifying 
number  relating  to  the  library  of  RCI  files  and  a  time  that  the  vehicle  will 
approximately  reach  that  node. 


-158- 


:i  us  ions 


This  section  has  outlined  a  framework  for  applying  the  BSSS  and  V5AS2 
off-road  trafficaPility  schemes,  The  development  of  a  grid  system  which 
may  be  part  of  a  hierarchy  of  grid  systems  to  represent  the  real 
environment,  enables  the  inclusion  of  spatial  resolution  of  site  and 
meteorological  parameters  and  variables. 

The  use  of  a  grid  system  of  course  simplifies  the  real  environment  and 
consequently  incurs  inaccuracies  in  prediction.  But,  there  is  great 
potential  for  the  user  to  build  up  the  grid  sophistication  as  more 
information  is  acquired  and  as  the  user  becomes  more  skilled  and  familiar 
with  both  the  system  and  the  area  under  consideration. 

The  application  of  the  results  from  the  BSSS  and  the  VSAS2  over  an  area 
to  route  management  problems  is  considered  an  important  aspect  of  the 
development  of  the  BORT5.  Development  of  the  route  management  and  grid 
set-up  scheme  (sections  6.4  and  6.3  respectively)  enables  the  user  to 
utilise  the  RCI  information  calculated  in  a  manner  that  does  not  require 
the  users  assessment  of  many  numbers. 

It  can  therefore  be  said  that  the  route  management  scheme  is  a  user 
friendly  facility  along  with  those  discussed  in  section  4.3.  It  allows  the 
non-expert  to  utilise  information  that  normally  only  the  experienced  could 
analyse.  The  route  management  scheme  also  displays  the  potential  use  of 
the  BSSS  and  V5AS2  schemes  and  as  diseased  in  section  1. ! .  this 
application  could  easily  be  extended  to  agricultural  applications 
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In  a  first  attempt  to  solve  the  requirements  set  out  in  section  1 .2,  a 
basic  infiltration  and  evaporation  scheme  devised  by  Anderson,  1982,  was 
used  as  a  starting  point  for  further  development.  This  development 
included  devising  a  suitable  soil  moisture  -  soil  strength  scheme,  a  first 
attempt  to  include  some  effects  of  vegetation  on  soil  strength  and 
evaporation  calculations,  a  first  attempt  to  include  the  effect  of 
topography  on  initial  moisture  contents  and  the  'biasing'  of  hydraulic 
conductivities  to  simulate  'flat  top’,  'slope'  and  'flat  bottom'  areas.  This  is 
shown  in  figure  6.1  alongside  the  existing  empirical  scheme,  SMSP. 


6.1.1  Specification  of  Detailed  Requirements 

As  discussed  in  section  3.1 ,  there  are  to  be  two  methods  of  predicting 
soil  moisture  and  hence  soil  strength.  This  section  will  specify  the 
requirements  for  the  BSSS;- 

6. 1.1a  An  area  is  represented  by  a  one  dimensional  soil  profile,  such  as 
that  shown  in  figure  6.2.  There  can  be  three  potentially  different 
layers  and  the  total  number  of  ceils  in  the  profile  may  be  up  to  ten 
The  cells  are  proportioned  between  layers  by  the  user. 


6.1.1b  Soil  water  modelling  within  the  soil  profile  should  be  as 

deterministic  in  nature  as  possible,  chosen  from  the  available 


relationships  (section  3.2).  The  calculation  of  soil  moisture,  soil 
water  potential  and  hydraulic  conductivity  of  any  cell  at  any  time 
should  be  an  inherent  feature  of  the  model. 

6.1.1c  Evaporation  must  be  calculable  at  the  same  temporal  resolution  as 
the  infiltration  routine.  It  should  demonstrate  the  non-tsothermal 
nature  of  evaporation  throughout  the  day  on  any  day  of  the  year  in  a 
temperate  latitude  (section  3.4).  The  influence  of  site 
orientation  and  other  characteristics  should  be  considered. 

6.1. Id  The  scheme  should  be  computationally  quick  to  run  (section  10.2). 

6.1.1e  Soil  strength  must  be  calculable  from  readily  available  soil 
parameters  and  include  the  effect  of  soil  water  (section  4. 1 ). 

6.1. If  User  input  must  be  readily  available  or  calculable  from  readily 
available  data.  Complex  soil  parameters  may  be  stored  in  a 
databank  facility  according  to  soil  classification  (section  4.3). 

6. 1 . 1  g  The  scheme  should  be  user  friendly  (section  4.4)  in  terms  of 

(i)  system  menu  information  when  choices  are  to  be  made, 

(ii)  system  prompts  for  user  response, 

(iii)  system  checking  for  'basic'  errors  -  such  as  whether  files  exist  or 
if  the  user  really  means  to  overwrite  an  existing  file. 

This  clarification  of  the  problem  (stage  one,  figure  1.2)  led  to  the  design 

of  a  solution  (stage  two,  figure  1.2)  and  is  shown  in  figure  6.3.  The 

data  requirements  of  the  scheme  divide  into  ( 1 )  the  site  specifications 
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which  are  mainly  static  in  nature,  and  (2)  the  meteorological  data  which  is 
dynamic  in  nature.  These  parameters  and  variables  are  manipulated  by  the 
main  body  of  the  scheme  to  calculate  soil  water  movement,  evaporation 
and  hence  soil  strength  on  a  variable  temporal  scale.  Output  from  the 
scheme  is  for  use  in  the  route  management  scheme. 

Further  refinement  of  the  system  design  and  choice  of  methodologies  to 
implement  the  solution  (stage  three,  figure  1.2)  allow  the  program 
design  to  be  constructed  as  in  figure  6.4.  The  algorithms  and  data 
structures  to  be  used  are  specified  in  section  6. 1 .5  and  the  code 
formulated  (Appendix  B)  is  described  in  sections  6.1.3  and  6.1.4. 
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The  system  design,  as  described  in  section  1.4.2,  tries  to  specify  a 
solution  to  the  above  requirements.  The  general  system  design  of  the 
BSSS  is  shown  in  figure  6.3  and  is  comprised  of  four  primary  modules. 
Three  of  these  primary  modules  deal  with  input  -  output  requirements, 
while  the  remaining  module  (known  as  the  functional  module)  has  been 
subdivided  into  three.  This  top  -down  approach,  called  modularity,  allows 
the  developer  to  consider  the  problem  as  a  whole  and  hide  details  that  may 
be  distracting.  The  developer  can  access  lower  levels  for  more  detail 
when  required. 

At  this  stage  of  development  the  ideal  number  of  modules  is  about  5-6, 
More  than  this  and  it  becomes  very  difficult  to  understand  what  the 
system  is  to  do,  trace  the  flow  of  data  through  the  system,  and  identify 
areas  of  complexity.  It  should  be  remembered  that  this  does  not  make  the 
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problem  any  easier,  but  it  does  allow  for  the  identification  of  the  the 
areas  that  will  be  most  difficult  to  handle.  Hence,  the  chance  of  confusion 
is  greatly  reduced  and  there  is  less  chance  of  entanglement  with  unrelated 
data  and  functions. 

The  system  design  for  the  BS55  (figure  6.3  )  identifies  that  there  are 
two  major  categories  of  data  requirements  for  the  system.  These  have 
been  divided  by  type  into  static  and  dynamic,  i.e.,  site  specifications  and 
meteorological  data  respectively.  The  information  input  to  the  system  is 
then  converted  into  predictions  of  trafficability  for  output.  The 
'functional  module’  transforms  the  input  data  by  evaluating  the  amount  of 
water  (section  6.1.1c)  entering  the  soil  profile  described  in  section 
6.1.1a,  simulating  the  flow  of  water  through  the  profile  as  described  in 
section  6.1. 1 b,  and  finally  calculating  the  soil  strength  as  defined  in 
section  6. 1 . 1  e  Further  refinement  of  the  system  design  into  the 
program  is  described  in  the  following  section. 


6.1.3  Description  of  Program  Design 

The  modularity  of  the  system  design  is  carried  on  through  to  the  program 
design  as  can  be  seen  in  figure  6.4  Here  the  modules  have  been  further 
refined  into  smaller  sub-modules,  Each  component  of  the  program  design 
is  now  described  in  detailed  pseudo  code  (section  6.1.5)  for  the  purpose 
of  constructing  code  (Appendix  B). 

The  input  requirements  have  now  been  divided  into  three  categories  - 
(a)  site  information,  i.e.  site  characteristics  that  the  one  soil  profile  will 
represent  and  is  fully  described  in  algorithm  2021  la, 


V* VOvl 


mm 


(b)  meteorological  data  used  in  the  evaporation  calculation  and 
determining  how  much  water  is  available  to  infiltrate  the  soil 

(algorithm  2021  Id),  and 

(c)  run  specification  information  as  described  by  algorithm  2021  If. 

The  program  design  shown  in  figure  6.4  indicates  when  this  input  data  is 
required  by  the  system.  The  system  searches  an  established  data  bank 
(algorithm  2021 1b)  for  more  information  about  different  soil  types. 
From  this  information  the  soil  moisture  characteristic  curves  as  defined 
in  section  3.2  are  calculated  (algorithm  2021 1c).  Some  of  the 
meteorological  information  is  input  in  units  that  require  alteration  and 
these  are  defined  in  algorithm  2021 1e. 

The  following  sequence  is  then  carried  out  at  the  iteration  time  intervals 
for  the  duration  of  the  run  period.  The  amount  of  evaporation  is  calculated 
(algorithm  2021 1  e)  as  described  in  section  3.4.  The  amount  of  water 
entering  the  soil  profile  is  the  calculated  and  the  infiltration  and 
redistribution  of  soil  water  within  the  soil  profile  is  calculated  according 
to  Richard's  equation  as  described  in  section  3.2.4  and  by  algorithm 
202 1 1  h  in  section  6. 1 .5 

The  soil  strength  is  then  calculated  for  the  top  soil  cell  according  to 
algorithm  2021 11  and  as  developed  in  section  4.1.  The  RCI  is  then 
written  to.the  data  files  (algorithm  2021 1  j)  for  use  by  the  route 
management  scheme  (section  5). 

The  program  design  is  an  intermediate  stage  between  the  English 
description  and  the  program  code  and  is  vital  for  the  further  development 
of  the  scheme.  The  relation  of  the  code  with  the  design  is  discussed  in  the 
following  section. 
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Following  the  program  design  and  algorithm  specifications  given  in 
section  6.1.5,  FORTRAN  code  (Appendix  B)  was  constructed  to  solve  the 
algorithms.  As  in  the  other  modules  (figure  1.3),  the  consistency  in 
programming  style  has  been  maintained  through  the  construction  of  small 
separate  subroutines  called  by  a  controlling  subroutine.  This  programming 
style  allows  the  development,  replacement  or  addition  of  further 
subroutines  with  ease. 

The  following  section  will  link  the  FORTRAN  code  (Appendix  B)  with  the 
appropriate  algorithms  (section  6.1.5)  and  how  they  work  together  to 
solve  the  requirements  set  out  in  sections  1 .2  and  6. 1 . 1 

The  'subroutine  tree'  shown  in  figure  6.5  demonstrates  the  flow  of 
control  within  the  BSSS.  The  appropriate  algorithms  coded  in  the 
subroutines  are  given  in  brackets.  All  subroutine  names  used  in  the  BSSS 
start  with  a  'b‘  for  ease  of  identification  from  the  other  fourth  level 
module  subroutines.  The  other  module  subroutines  also  have  a  similar 
system  of  identification. 

The  flow  of  the  BSSS  is  controlled  through  one  major  subroutine  which  has 
been  called  'bcntr  and  can  be  considered  as  representing  module  2022  in 
figure  1.3.  It  is  worth  noticing  that  those  subroutines  in  B0RT5  which 
control  the  flow  of  activity  are  named  _cntr  where  the  underscore  is  an 
identifying  letter  -  namely  b'  for  the  BSSS,  V  for  the  VSAS2,  'r'  for  the 
optimum  route  management  scheme,  and 't'  for  the  route  evaluation 
scheme. 
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The  first  decision  made  is  whether  to  edit  a  BSSS  input  file  (module 
20212),  i.e.  call  'bmenu',  or  whether  to  run  the  BSSS  (module  2021 1 ),  i.e. 
bypass  'bmenu'.  Subroutine  'bcntr  has  been  developed  to  allow  the  user  to 
run  up  to  thirty  files  at  any  one  time.  The  names  of  the  input  files  is 
requested  by  the  system  and  an  'identification'  integer  is  asked  for  to 
identify  the  output  file  'data.n',  where  n«  1,2.. ..30 .  The  default  'n'  value 
starts  at  one,  but  the  system  allows  the  user  to  interactively  change  this. 
Subsequent  values  of  *n'  are  automatically  incremented,  though  the  user 
may  change  these  as  well. 

For  each  input  file  and  associated  output  file  the  BSSS  is  run.  Firstly  the 
input  data  is  read  via  'bread'.  Subroutine  'bread'  has  three  entry  point  -  i.e. 
'breadl',  'bread2‘  and  'bread3'.  This  methodology  facilitates  future 
development.  The  input  is  used  to  access  the  data  facility  detailed  in 
algorithm  2021  lb,  and  is  coded  in  subroutine  'bschars'.  Subroutine 
'bschars'  calculates  soil  properties  from  a  NAG  routine  applied  to  stored 
distributions  in  'spec.bdl'  and  'spec.bdata'.  The  soil  properties  are 
calculated  for  the  three  soil  layers  and  each  layer  may  be  allocated  a 
different  soil  type  according  to  the  classification  given  in  figure  6.6. 

The  user  also  provides  information  on  the  organic  content  of  each  layer 
and  then  the  soil  bulk  density  is  calculated  in  'bsoilbd'  and  passed  to 
'bsmcurv'  where  the  suction  -  moisture  curve  for  each  soil  layer  is 
calculated.  To  complete  the  soil  -  moisture  characterization  for  each  soil 
layer,  'bhydcon'  is  called  to  calculate  the  soil  moisture  -  hydraulic 
conductivity  curves. 

Subroutine  'bcntr  then  reads  more  Input  data  so  that  the  user  friendly 
units  that  some  meteorological  information  are  given  in,  can  be  suitably 
altered  in  'baiter'.  The  remaining  soil  strength  variables  are  read  within 
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‘binfir  by  'bread3',  and  the  static  section  of  the  soil  strength  relationship 
given  in  algorithm  202 1 1 1  is  calculated  before  the  simulation  of  the  flow 
of  water  into  and  through  the  profile  during  the  run  period.  Subroutine 
binf IV  calculates  the  infiltration  and  re-distribution  of  water  within  the 
profile  according  to.algorithm  2021 1h  (Richard’s  equation)  and  calls 
’bevapor'  to  calculate  evaporation  from  the  surface  according  to  the 
non-isothermal  routine  detailed  in  algorithm  202!  !g.  Matric  suction 
values  are  passed  from  binf i]’  to  ’bci’  where  the  dynamic  soil  strength  is 
calculated  in  terms  of  rating  cone  index  (RCI).  Output  of  RCI  through  time 
according  to  algorithm  2021 1  j  is  controlled  from  within  'binf il*. 

Control  is  returned  to  ’binfil’  at  the  end  of  the  run  period.  The  input  files 
and  output  files  are  closed  and  the  program  checks  whether  another  file  is 
to  run.  When  no  more  files  are  to  be  run,  the  user  is  returned  to  the 
master  menu  where  the  user  may  run  any  of  the  modules  shown  in  figure 
1.3 

To  facilitate  further  development  of  the  BSSS,  Appendix  A  describes  the 
variable,  parameter  and  counter  names  used  in  the  scheme.  Each  name  is 
accompanied  by  a  brief  description  of  their  use  and  any  other  subroutine 
they  are  passed  to  or  from  and  the  name  of  the  common  block  they  can  be 
found  in. 


This  section  sets  out  the  algorithms  used  in  the  BS5S.  The  solutions  are 
written  in  'pseudo-code',  which  is  an  intermediate  stage  between  the 
description  given  in  English  and  the  program  FORTRAN  code.  This  section 
is  represented  as  stage  3,  the  program  design,  shown  in  figure  1.2 


6.1.5a  List  of  algorithms  in  the  following  section 

Algorithm  2021  la  :Read  site  information. 

Algorithm  2021 1b  :Search  soil  characteristics. 

Algorithm  2021 1c  Calculate  soil  moisture  characteristic  curves. 
Algorithm  2021  Id  :Read  meteorological  data. 

Algorithm  2021 1e  Alteration  of  units. 

Algorithm  2021  If  :Read  run  data. 

Algorithm  2021 1g  :Non-isothermal  evaporation  routine. 

Algorithm  2021  Ih  :One  dimension  infiltration. 

Algorithm  2021  li  '.Calculate  soil  strength. 

Algorithm  2021 1  j  Management  of  output  data. 


DEFINE 


(a)  data  file  to  be  read 

(b)  output  file  identifier  interactive  system  prompted 

(i.e.  data.l,data.2, . data.n) 

READ  from  input  data  file  the  following  information: 


1.  internal  angle  of  friction 

(phi) 

2.  remoulded  angle  of  friction 

(phib) 

3.  soil  cohesion 

(c) 

4.  soil  shear  modulus 

W 

5,  depth  of  cone  tip 

(zz) 

6.  number  of  soil  layers 

(nos) 

7.  soil  type  of  layers 

(isty(l.nos)) 

8.  organic  content  of  layers 

(op(Lnos)) 

9.  number  of  cells 

(nla) 

10.  moisture  content  of  cells 

(tf(1..nla)) 

1 1.  thickness  of  cells 

(tcom(1..nla)) 

12.  slope  angle 

(slope) 

13.  zenith  angle 

(za) 

14.  surface  azimuth  angle 

(surfacaz) 

15.  latitude  of  site 

(lat) 

16.  topographic  a/s  value 

(aos) 

SEARCH  databank  facility 
KEY-  soil  type 

EQRmean  and  standard  deviation  of  the  following  parameters: 

1.  saturated  hydraulic  conductivity 

2.  saturated  water  content 

3.  bubbling  pressure 

4  percentage  sand  content 

5.  percentage  clay  content 

6.  mineral  bulk  density 

APPLY  stochastic  variation  on  parameters  I  -6: 


I.  lognormal  distribution 
2-6.  normal  distribution 


soil  bulk  density  for  each  different  soil  type  according  to 

soil  bulk  density  =  ( 1 00/(om%/0.224M(  1 00-om%)/mbd))) 

where  om%  =  percentage  organic  matter  content 
mbd  =  mineral  bulk  density 


1NTINUE 

lERttLNE 

10  point  e-Tj  curve  according  to 
FOR  each  given  l*l 

0  *  a. +  bj  (%  sand) ♦  c(  (%  clay)  ♦  d(  (%  om)  ♦  e,  (sbd) 

where  0  =  soil  moisture  content 
V  =  matric  suction 
om  =  organic  matter 
sbd  =  soil  bulk  density 


coefficients  a-e  are  abstracted  from  the  table  in 
section  3.5. 3. 3  for  given  values  of  V 


20  point  6-y  curve  with  equal  6  intervals  (Howse,  1 985) 


CONTINUE 


CALCULATE 


EQReach  soil  type,  the  hydraulic  conductivty  according  to:- 

m 

ki  *k,  <e,  /ef  2j,|[(2j*i-2i)MJ-2l 


2J.1[(2j-nVj-2] 


at  equal  moisture  intervals  (Millington  and  Quirk). 


DEEM 

(a)  data  input  file  to  be  read  interactive  system  prompted 
READ  from  input  data  file  the  following  information: 


1.  number  of  hours  of  rain 

dr) 

2.  hourly  precipitation  values 

(ppt(  Ur)) 

3.  rain  start  time 

(air) 

4.  rain  stop  time 

(amr) 

5.  barometric  pressure  (mbs) 

(press) 

6.  albedo  of  surface 

(alb) 

7.  cloud  type 

(ncloud) 

8.  number  of  air  temp  observations 

(max(  1 )) 

9.  times  of  air  temp  observations 

(xxx(1..max(l),l)) 

0.  observations  of  air  temp 

(yyy(  1  ..max(  1 ),  1 )) 

1.  number  of  rel.  humidity  obs. 

(max(2)) 

2.  times  of  rel.  humidity  obs. 

(xxx(1..max(2),2)) 

3.  obs.  of  rel.  humidity 

(yyy(  i..max(2),2)) 

4.  number  of  cloud  cover  obs. 

(max(3)) 

5.  times  of  cloud  cover  obs, 

(xxx(l„max(3),3)) 

6.  obs.  of  cloud  cover 

(yyy(l..max(3),3)) 

7.  number  of  ground  temp.  obs. 

(max(4)) 

8.  times  of  ground  temp.  obs. 

(xxx(  !..max(4),4)) 

9.  obs.  of  ground  temps. 

(yyy(]..max(4),4)) 
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CONVERT 


1.  air  temp  observations  -  centigrade  to  kelvin, 
i.e.  centigrade  ♦  273. 1 5  =  degrees  kelvin 

2.  relative  humidity  (%)  to  decimal, 
i.e.  %  *  0.0 1  =  decimal 

3.  ground  temp  observations  -  centigrade  to  kelvin, 
i.e.  centigrade  ♦  273. 15  =  degrees  kelvin 

4.  wind  speed  observations  -  ms"'  to  cm  s"\ 
ms-1  *  100  -  cm  s-1 

5.  slope  -  degrees  to  radians, 

I.e.  ( degrees  *  tt )/ 1 80  -  radi ans 

6.  surface  azimuth  -  degrees  to  radians, 
i.e.  (degrees  *  tj)/ 180  »  radians 


•7,*‘V*v’v.Vw 
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I.  rate  of  increase  /  decrease  throughout  day  of  .- 

a.  air  temperature 

b.  relative  humidity 

c.  ground  temperature 

d.  cloud  cover 

e.  wind  speed 
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a.  air  temperature 

b.  relative  humidity 
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DETERMINE 


evaporation  at  any  time  of  day  and  year  according  to 


evaporation 


eq.  2021 1  g.  1 


where  S  =  incomming  radiation  to  a  surface  of  albedo  ag 

l  =  thermal  infra-red  radiation 
G  ■  heat  flux  from  the  ground 
Lx  =  latent  heat  exchange 
H  *  sensible  heat 


DETERMINE 


S  according  to- 


S  « (l  -a  )  [  l  - A(u* ,z)](0.349)S0cos  z 


eq.  2021 1g.2 


♦  ( 1  -a  )  [( 1  -a0)/(  1  -a02g)j(0.65 1  )S0cos  z 


where  S  =  incomming  radiation  at  the  ground  with  no  cloud 


cover 


ag  =  surface  albedo 
ag  =  average  ground  albedo 


a0  =  atmospheric  albedo  for  Raleigh  scattering  ,  equal  to 
0.085  -  0.247  !og10  [(ps/p0)cos  z] 


pf  ■  surface  pressure 
p0  *  1 000  mb 

z  =  zenith  angle  of  the  sun  as  a  function  of  the  time  of  day 
and  year 

A(u*,z)  =  Mugge  -  Moller  absorption  function,  equal  to 
0.27l(u*sec  z)0803 

u“  *  effective  water  vapour  content  of  the  atmosphere 
S0  *  solar  radiation  incident  on  top  of  the  atmosphere 

(0.349)S0  =  ammount  of  solar  radiation  of  wavelength  >  0.9  pm 
(0.65 DS0  =  amount  of  solar  radiation  of  wavelength  <  0.9  pm 

BETEBMINE 

u*  according  to:-  (Smith,  1966) 

u’  «  exp  [0.07074  Td>  T]  eq.  202 1 1  g.3 

where  Td  =  dew  temperature 


T  =  -0.02290  April  -  June 
T  ■  0.02023  all  other  months 


effective  incident  net  insolation  according  to;- 


S  =  SC.SF  eq.  2021  !g.6 

where  S  =  effective  incident  net  insolation 
Sc  =  net  insolation 
SF  =  slope  factor 


DETERMINE 

slope  factor,  SF,  according  to 

SF  =  cos(z).cos(SI)  +  sin(z).sin(SI).cos(SAZ~SIAZ) 

eq.  2021 1  g.7 


where  SF  ■  slope  factor 

z  =  solar  zenith  angle 
SI  =  slope  of  the  surface 
SAZ  =  solar  azimuth  angle 
SIAZ  =  azimuth  of  the  slope 


DETERMINE 

thermal  infra-red  energy  inputs  according  to- 

(Sellars,  1965) 


lvo  =  £61  A  [  c  *  b(ea° 5 )  ] 


eq.  2021  Ig .8 


where  i^0  « thermal  infra-red  energy  input 

E  =  emisswity  (assumed  to  be  1 ) 

6  -  Stephan  -  Boltzman  constant 
T  =  shelter  air  temperature  (kelvfn) 

e.  =  water  vapor  pressure  (mb) 

b  =  empirical  constant  =  0.05 
c  =  empirical  constant  =  0.6 1 


water  vapor  pressure,  ea  .according  to:- 

(Murray,  1967) 


RH.  (6. 1 08).exp( A.T  )/(T  *273. 1 5-B) 

8  8 

eq.  202 1 1  g.9 


where  ea  *  water  vapor  pressure 

RH  =  relative  humidity  (decimal) 

T  =  shelter  air  temperature  (kelvin) 

A  =  empirical  constant  =  17.269 
B  =  empirical  constant  =  35.86 


infra-red  radiation  at  surface  as  (Sellars,  1 965) 

affected  by  cloud  presence,  according  to  :- 


vo 


(1+CIR  .  CC2) 


eq.  2021  lg.10 
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where  l^t  =  cloud  adjusted  Infra-red  radiation  at  surface 

l/0  =  Infra-red  radiation  at  surface  with  no  cloud  cover 

CIR  =  coefficient  dependent  upon  cloud  type  (Sellars,  1965 
orOke,  1978) 

CC  =  cloud  cover  in  tenths 


ground  radiative  emittance,  rt,  according  to  - 


■t*v<v4 


eq.  2021  lg.1 1 


where  rt  ■  ground  radiative  emittance  from  the  surface 
£  •  emissivity  of  the  ground 
d  =  Stephan  -  8oltzman  constant 
Tg  =  ground  temperature 
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total  infra-red  input,  I,  to  the  surface 
according  to  - 


Vt-I.t  eq.  202 1 1  g.  1 2 

where  I  ■  total  thermal  infra-red  input  to  the  surface 
l^t  -  cloud  adjusted  infra-red  radiation  at  the  surface 

l.t  =  energy  radiated  from  the  surface 


II NE 

the  conductive  and  convective  sensible  heat 

transfer  ,  H,  according  to  :-  (Lamb,  1974; 

Oke,  1978) 

H  *  -/?Cp/('2Z2  £§  an  SCF 

az  az  eq.  202 1 1  g.  1 3 


where  H  =  sensible  heat  transfer 
p  -  air  density 

Cp  =  specific  heat  of  dry  air  at  constant  pressure 

k  =  von  Karman's  constant  =  0.40 
z  =  observation  height 

d©  /  az  -  partial  derivative  of  potential  temperature  w.r.t.  height 
av  /  az  =  partial  derivative  of  windspeed  w.r.t.  height 


5CF  is  DEFINED  bv:- 

5CF  =  1.175(  l-lSRj)075 
SCF  =  ( 1  -5R{) 

SCF  =0 


eq.  202 1 1  g.  1 4 

when  Rj  i  0 
when  0  <  R.  i  0.2 
when  Rj  >  0.2 


(MINE 

potential  temperature,  0 ,  according  to:- 
©  =  Ta  (  1000  )°  286 

P  eq.  202 1 1  g.  1 5 

where  6  «  potential  temperature 
Ta  ■  air  temperature 
P  *  air  pressure 


imt 

the  Richardson  number,  R,  according  to:~ 

R,  -  /(  &)2  eq.  202 1 1  g.  1 6 

e  dZ  dz 
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where  R  =  Richardson's  number 


6  -  average  potential  temperature  between  the  surface  and 
height,  z 

v  *  average  wind  velocity  between  the  surface  and  height, 
z. 

1INE 

latenet  heat  exchange,  Lx,  according  to.- 

<  -  -p  Ik2  z2  (  M'&i)  (£v)  SCF  eq.20211g.l7 

az  dz 

where  Lx  *  latent  heat  exchange 
p  -  air  density 
L  -  latent  heat  of  evaporation 
q  »  specific  humidity 
v  =  wind  velocity 
z  =  height  (i.e.  shelter  height) 
k  =  von  Karman's  constant  “0.40 
w  -  saturation  factor 
SCF  -  defined  In  eq.  202 II  g.  1 4 

£ 

heat  flux  from  the  ground,  G,  in  temperate  latitudes  =  0 


-QhPUTE  the  following  substltutlons:- 


SUBST.  eq.  202 1 1  g.3  Into  eq.  202 1 1  g.2  to  solve  eq.  202 1 1  g.2  =  Sa 


SUBST.  eq.  202 1 1  g.4  &  eq.  202 1 1  g.2  into  eq  202 1 1  g.5 


SUBST.  eq.  202 1 1  g.5  &  eq.202 1 1  g.7  into  eq  202 1 1  g.6 


SUBST.  eq.  202 1 1  g.8  Into  eq.  202 11  g.  1 0 


SUBST.  eq.  202 11  g.  1 0  &  eq  202 1 1  g.  1 1  into  eq  202 1 1  g.  1 2 


SUBST.  eg.  2021 1g.15  into  eq.  2021 1g.16 


SUBST.  eq  202 1 1  g.  1 6  into  eq.  202 1 1  g.  1 4 


SUBST.  eq.  202 1 1  g.  1 5  &  eq  202 1 1  g.  1 4  into  eq  202 1 1  g.  1 3 


SUBST.  ea.  2021 1  g.  1 5  Into  eq.  2021 1g.  1 7 

SUBSTITUTE  equations  20211  g.6 

202 1 1  g.  1 2 
2021 1  g.  1 3 
2021 1  g.  1 7 


into  eq  2021 1  g.  1 


to  SOLVE  for  evaporation. 


=  5CF 
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£0RUH£1202Hh  :  ONE  DIMENSION  INFILTRATION  (BS5S) 

CALCULATE  water  movement  between  cells  (figure  3.3)  according  to:- 

&  -  A.  (k(0)^l(0))  -&J0)  eq.  2021  lh.  I 

at  az  az  az 

SOLVE  eg.  2021 1  h.  1  through  the  following  equations  - 

Richard's  equation  for  flow 

q  =  k(0)  Ah  eq.  2021 1h.2 

where  q  -  apparent  water  velocity 

k(0)  *  hydraulic  conductivity  at  sol)  water  content  6 
Ah  *  hydraulic  gradient 


Continuity  slaieaJhat- 

30.  *  Aq  eq.  202 1 1  h.3 

at 

where  0  =  soil  water  content 
t  =  time 

Aq  =  flow  gradient 

Substitute  eq.  202 1 1  h.3  Into  eq  202 1 1  h.2  - 


30  -  a  (k(0)Ah) 

at 


eq.  2021 1h.4 


Ah  -  V  "  z 


eq.  2021  lh.5 


where  V  -  (,K0)  *  matric  potential  at  soil  water  content 
6,  and  may  be  either  a  suction  or  a  pressure 
z  =  gravitational  head  (or  depth) 

Substitute  eg.  2021 1h.5  into  eq.  2021 1h.4- 
*  a  (k(0)A(g-z)) 

at  eq.  2021 1h.6 


Expand  eq.  2021 1h.6  in  Z  direction:- 

-  L  [  k(6)  (5U  -  &)  ] 

at  az  az  az 


&  *  [  KifiMSl  -  k(0)  ] 

at  az  az 


as.  -  a_[  KiQiago)  ]  -mai 

at  az  az  az  eq202iih.7 


(One  dimensional  flow) 


m  -  (4 x  sin(phi))/(3  x  ( 1  *sin(phi))) 


where  phi  -  internal  angle  of  friction 


CALCULATE 


where  alpha  -  half  the  cone  tip  angle  =  15° 


CALCULATE  using  eq  202 1 1  i.  I 


al  -  1  -  m 


a2  -  2  -  m 


a3  -  3  -  m 


CALCULATE  using  eqs.  202 1  1 1.3-5 


b2  *  d2  x  a  I  x  a2  x  a3 


where  d  -  cone  diameter  -  0.799  in. 


eq.  2021 11.1 


bi  *  (tan(alpha)  ♦  tan(phi))  x  tan(alpha)  x  8  eq.  2021 1 1.2 


eq.  2021 11.3 

eq.  2021 1 1.4 


eq.  202 1  1 1.5 


eq.  2021 11.6 


msm. 
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using  eq.  2021 11.1 


b3“(ggx(1/tan(phi)))m  eq.  202111.7 

where  gg  *  shear  modulus  (set  by  the  user) 
f A)  fUl  ATE  using  eq.  202 1 1 1.3 

b4  *  (gamma)81  eq.  2021 1 1.8 

where  gamma  *  soil  density  -  0.067  lb/in3 
CALCULATE  using  eqs.  202 1 1 1.2,  202 1 1 1.5  -  8 

si  -(bl  xb3xb4)/b2  eq.  2021H.9 

CALCULATE  using  eq.  202111.5 

dl  -  ((c/gamma)  x  ( 1  /tan(phi))  +  aal ♦  zz)a3  eq.  2021 11.10 

d2  *  ((c/gamma)  x  ( 1  /tan(phi)) +  zz)a3  eq.  202 111.11 

CALCULATE  using  eq.  202 1 1 1.4 

d3  *  ((c/gamma)  x  ( 1  /tan(phi)) +  zz)a2  eq.  202 111.12 

where  c  -  soil  cohesion  (user  defined) 
aal  =  cone  length  *  !.48ln 
zz  -  depth  of  cone  tip  (user  defined) 


ULATE  using  eqs.  202 111.5  &  202 1 1 1. 1 2 

d3  =  d3  x  a3  x  aa)  eq.  202111.13 

ULATE  using  eos.  2021 11.10,  2021 11.1 1  &2021 11.13 

s2  =  d  1  -  d2  -  d3  eq.  2021M.14 


e  I  *  c  x  tan(alpha)  x  ( I /tan(phi))  eq.  202 111.15 

e2  *  ua  x  tan(phi)  eq.  202 1 1 1. 1 6 

e4  *  (4  x  aa!2  x  tan(alpha))/(d2)  eq.202 1  M.  1 7 

where  ua  =  air  entry  matric  potential  =  - 1 7.0  in 

NIUE 

mt 

dynamic  section  of  soil  strength  relationship 
(i.e.  the  Influence  of  water)  according  to 

CULATE 

e3  ■  (ua  +  uw)  x  tan(phib)  eq.  202 111.18 


where  uw  -  soil  water  matric  potential 


phib  =  remoulded  internal  angle  of 
soil  friction  (user  defined) 


VTE  using  eqs.  202 111.15-18 

s3  *  (el  -  e2  +  e3)  x  e4  eq.  202111.19 

fusing  eqs.  202 11  i.9,  202111.14  &  202111.19 


ci  =  (si  x  s2)  -s3 


eq.  2021 11.20 


logical  series  of  output  files 

named  data,  I ,  data.2, . data.n, . data, 30 

where  'n'  is  an  integer  upto  30 

l 

user  to  change  start  ’n’  value 

i 

output  file  name  with  correct  input  file  for  multiple  runs 

RCI  values  at  hourly  intervals  (or  choosen  intervals)  of  top  layer  for 
duration  of  run 


The  set  of  general  requirements  detailed  in  section  1.2  indicate  the  need 
to  cope  with  areas  that  have  slope  angles  greater  than  say  five  degrees 
and  are  well  vegetated  (requirement  1.2e).  The  first  attempt  of  the 
B555  is  unable  to  simulate  the  conditions  of  steep  slopes,  convergent  flow 
and  highly  vegetated  areas  while  remaining  true  to  requirements  1.2a  - 
1.2d,  i.e.  parsimonious  data  requirements;  readily  available  data, 
essentially  deterministic  in  nature;  and,  computationally  quick  to  run 
(section  10.2).  In  order  to  fulfil  all  the  requirements  as  well  as 
possible,  it  was  decided  to  adapt  an  existing  scheme  (V5AS2)  to  calculate 
soil  strength  over  steep  areas. 

The  V5AS2  scheme  was  selected  for  modification.  Although  the  scheme 
was  originally  Intended  to  estimate  channel  flow  from  a  catchment,  the 
manner  in  which  it  simulates  the  basin  through  segmentation  and  the 
calculation  of  soil  moisture  content  within  each  segment  on  a  variable 
two  dimensional  grid  system  (figure  6.7),  allows  a  soil  strength 
relationship  (section  4. 1 )  to  be  applied  to  the  top  layer  of  a  segment. 


6.2.1  Specification  of  Detailed  Requirements 

The  following  requirements  were  built  into  VSAS2  by  Bernier  ( 1 982):- 

6.2.1a  The  segment  /  basin  is  represented  as  a  two  dimensional  system 

(figure  6.7) 

6.2.  Jb  Subsurface  flow  is  allowed  to  move  in  non-vertical  directions 
according  to  computed  gradients. 


6.2.1c  The  source  areas  must  be  capable  of  both  lateral  and  headward 
expansion  from  the  established  channel  system. 

The  application  of  VSAS2  for  soil  strength  predictions  necessitates  a 
further  requirement:- 

6.2. Id  An  appropriate  soil  strength  -  soil  moisture  model  should  be 
coupled  with  the  VSAS2  to  predict  areal  RCI  values  over  a  segment. 

These  user  requirements  form  the  first  stage  of  the  system  development 
shown  in  figure  1.2  for  the  fourth  level  module  20221  (figure  1.3) 
Using  these  requirements,  a  system  design  can  be  constructed  (figure 
6.8)  which  describes  a  possible  solution  to  the  problem.  The 
methodologies  of  solving  the  problems  are  detailed  in  the  program  design 
(figure  6.9),  which  is  a  further  refinement  of  the  system  design.  The 
algorithms  and  data  structures  to  be  used  are  specified  in  section  6.2.5. 
The  program  code  is  then  devised  according  to  these  algorithms  and  is 
further  discussed  through  the  program  implementation  section  (sections 
6.2.3  and  6.2.4) 

6.2.2  Development  of  System  Design 

A  general  system  design  for  the  VSA52  has  been  constructed  (figure  6.7) 
from  the  work  carried  out  by  Bernier  ( 1 982)  and  Whitelaw  ( 1 987, 1 988). 
The  design  displays  modularity  with  similar  modules  and  sub-modules  to 
the  BSS5. 


As  with  the  B555,  the  data  requirements  have  been  divided  into  static  and 
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dynamic  type  data,  i.e.,  segment  specifications  and  meteorological  data 
respectively.  The  information  input  into  the  system  is  then  converted  into 
predictions  of  trafficability  averaged  over  the  segment.  The  functional 
module'  transforms  the  input  data  by  evaluating  the  amount  of  rainfall 
reaching  the  surface  (algorithm  2022 Id),  simulating  the  flow  of  water 
through  the  segment  (section  3.3)  and  finally  calculating  the  soil 
strength  according  to  section  4. 1 .  The  soil  strength  for  each  slope 
surface  element  is  used  to  calculate  the  average  soil  strength  over  the 
segment  and  is  output  to  the  data  files.  Further  refinement  of  the  system 
design  into  the  program  is  described  in  the  following  section. 


6,2.5-DeacrMiQPj)f  program  Design 

The  modularity  of  the  system  design  is  carried  on  through  to  the  program 
design  given  in  figure  6.9.  The  modules  have  been  further  refined  into 
smaller  sub-modules.  Each  component  of  the  program  design  is  described 
by  pseudo  code  (section  6.2.5)  for  the  purpose  of  code  construction. 

The  input  requirements  have  now  been  split  into  four- 

(a)  segment  information  describing  the  physical  characteristics  of  the 
area  to  be  simulated  and  described  by  algorithm  20221a, 

(b)  Initial  moisture  content  information  for  each  element  of  the  segment 
and  described  in  algorithm  2022  le, 

(c)  storm  information  giving  hourly  rainfall  information  and  described  by 
algorithm  20221c,  and 

(d)  soil  mechanical  properties  described  in  algorithm  20221  j 


i. 


>*_*,**»%' 


Read  segment 
Information 


Calculate  geom. 
vars.  describing 
segment 


Read  Initial 
moisture 
content 
Information 

(alg.  2022 1e) 
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(alg,  20221a) 


(alg,  20221c) 


(alg,  20221b) 


(alg.  2022 Id) 


Calculate  amount  of 
overland  flow 


Initialize 
hydrological  vars. 


Calculate  vertical 
and  slopewise 
flow  between 
elements 


Calculate  areas  of 
saturation  and 
create  smaller 
elements  at  the 
border  of  variable 
saturation  zone 


Read  storm 
information 


Determine  net 
precip.  after 
interception 
and  storage 


(alg.  2022 If) 


(alg,  2022 1g) 


(aig.  2022 1h) 


(alg.  2022 It) 


(alg.  20221k) 


Calg .  202211) 


B 


11 
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The  program  design  in  figure  6.9  shows  when  this  input  data  is  required 
by  the  system.  The  system  calculates  all  the  geometric  variables 
describing  the  segment  at  the  start  of  the  run  simulation  according  to 
algorithm  20221b.  The  amount  of  water  entering  the  segment  is 
calculated  from  the  rainfall,  the  amount  of  water  intercepted  (algorithm 
2022 Id)  and  the  amount  of  overland  flow  (algorithm  2022 If).  The 
VSAS2  scheme  makes  no  allowance  for  evaporation  or  evapotranspiration 
and  the  limitations  of  this  are  further  discussed  in  section  8.2. 

The  following  sequence  is  then  carried  out  at  the  iteration  intervals  for 
the  duration  of  the  storm  event.  After  initializing  the  hydrological 
variables  (algorithm  2022 1g)  the  simulation  of  water  through  the 
segment  is  calculated  by  the  two  dimensional  form  of  Richard's  equation 
described  In  section  3.3.  The  grid  set-up  is  altered  to  create  smaller 
elements  at  the  borders  of  the  saturated  area  and  75%  saturated  area 
(algorithm  20221  i) 

The  soil  strength  is  then  calculated  for  the  entire  segment  at  the  output 
intervals  required  by  the  user  according  to  algorithm  20221k.  The 
averaged  RCI  is  then  written  to  the  data  files  (algorithm  202211)  for 
use  by  the  route  management  scheme  (section  5). 


From  the  program  design  (section  6.2.3)  and  algorithm  specifications 
given  in  section  6.2.5,  FORTRAN  code  was  written  to  solve  the 
algorithms.  As  with  the  other  modules  (figure  1.3)  the  algorithms  have 
been  coded  1;  separate  subroutines  with  a  controlling  subroutine.  This 
section  will  link  the  code  with  the  appropriate  algorithms  and 
demonstrate  how  they  work  together  to  solve  the  requirements  set  out  in 
sections  1  and  6.2. 1 . 

The  'subroutine  tree'  in  figure  6. 10  shows  the  flow  of  control  within 
VSAS2.  The  appropriate  algorithms  coded  in  the  subroutines  are  given  in 
brackets.  All  subroutine  names  used  in  the  VSAS2  begin  with  a  V  for  ease 
of  identification  from  the  other  module  subroutines. 

As  with  the  VSAS2  obtained  from  Whitelaw  (1987),  the  flow  of  the 
program  is  controlled  through  one  major  subroutine  which  is  called  'vcntl' 
and  can  be  considered  as  representing  module  2022  in  figure  1 .3.  The 
choice  Is  made  here  whether  to  edit  a  VSAS2  input  file  in  which  case 
'vmenu'  is  called,  or  whether  to  run  V5A52  when  the  call  to  'vmenu'  is 
by-passed.  The  subroutine  'vcntl'  prompts  the  user  for  input  files,  checks 
that  they  exist,  asks  for  an  output  file  for  the  RCi  information  and  then 
runs  VSAS2  on  the  information  given  in  the  input  files.  As  will  be 
discussed  later,  VSA52  provides  much  more  output  data  than  is  required 
for  this  application  to  soil  strength  prediction,  but  the  facility  of  this 
extra  information  will  be  useful  in  further  development  of  the  scheme 

In  the  application  of  the  VSAS2  within  BORTS,  it  is  considered  that 
simulating  one  segment  at  a  time  is  the  easiest  procedure  for  the  user. 
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Multiple  runs  of  single  V5AS2  segments  can  be  used  to  simulate  a  larger 
area  if  the  user  requires  it. 

The  subroutine  'vread'  has  three  entry  point  (figure  6. 10);1  e  'vreadr, 
Vread2’  and  'vread3\  which  read  the  four  input  files  specified  by  the  user. 
The  program  then  calculates  the  section  of  the  soil  strength  relationship 
(Cochrane,  1987)  which  is  dependent  only  on  the  static  soil 
characteristics.  The  segment  geometry  (figure  6.7)  is  then  calculated  by 
'vblkvol'.  Subroutines  'vcone'  and  'vblkvol'  are  only  called  once  for  each 
segment  run. 

The  subroutine  'vinter'  is  called  next  to  calculate  the  net  precipitation 
reaching  the  surface  of  the  segment.  A  maximum  interception  value  of 
0.249  cm  and  0.254  cm  for  the  dormant  and  growing  seasons  respectively, 
Is  subtracted  from  the  initial  rainfall.  This  storage  yields  20%  of  its 
volume  every  hour  to  the  segment  as  stemflow  and  drip.  A  rain  free  period 
of  twenty-four  hours  will  reset  the  storage  to  zero. 

The  subroutine  'vinit'  initializes  all  the  hydrological  variables  of  the  soil 
elements  which  can  vary  by  layer,  depth  and  position  on  the  slope.  Three 
slope  sections  (pos)  may  be  specified.  The  cross-sectional  area  and  the 
distance  for  flow  between  soil  element  pairs  and  between  the  stream  side 
elements  and  the  stream  is  also  calculated  for  use  in  'vdrain'  (algorithm 
2022  Jh).  Initial  positive  pressures  and  moisture  contents  of  each  soil 
element  is'  calculated. 

The  following  subroutines  simulate  the  flow  of  water  through  the  soil 
over  time.  Subroutine  'vdrain'  calculates  the  vertical  (  eq.20221h.4i  In 
algorithm  2022 1 h.4)  and  slopewise  (eq.  2022 1h.4 h  in  algorithm  2022 1  h  4) 


vcntl  — i 


vmenu  - 

(20222a) 

-  vreadl 

(20221a) 

-  vread2 

(20221c) 

-  vread3 

(20221  j) 

-  vvlew 

(20221m) 

vreadl 

(20221a) 

— 

vread2 

&  (2022 1e) 

(20221c) 

— 

vread3 

(2022 1j) 

— 

vcone 

(20221k) 

— 

vblkvol 

(20221b) 

— 

vinter 

(2022  Id) 

— 

vlnlt 

(2022 1g) 

— 

vdraln  -] 

(2022 1h) 

-  vxmatrx 

(2022  lh.1) 

-  vcon 

(2022 1h.2 

-  vlatf lo2 

(2022 1h.  4) 

— 

vouta3- 

(202211) 

-  vci 

(20221k) 

-  vxmatrx 

(2022  lh.1) 

&  (2022 1e) 


2022 1h.3) 


VOUtbl  (2022)1) 
VOUtb2  (202211) 
VOUtb3  (202211) 
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flOW  between  a  source  soil  element  and  a  receiving  soil  element.  The 
receiving  element  may  be  a  stream.  Subroutine  'vdrain'  is  run  on  a  fifteen 
minute  basis  (krep  =  4)  and  the  saturated  and  near  saturated  elements  are 
handled  on  a  five  minute  time  basis  (lrep  *  3).  The  values  of  'krep'  and 
'lrep'  are  controlled  by  the  user  to  maintain  stability  and  /  or 
computational  time  limitations  (section  10.2). 


Within  ‘vdrain’  slopewise  flow  is  calculated  first,  starting  at  the  lowest 
layer  at  the  slope  base.  The  sequence  of  calculation  is  up  the  slope  and 
then  up  the  layers.  On  completion  of  the  slopewise  flow  calculation,  the 
vertical  flow  is  calculated  in  the  same  locative  sequence. 


Subroutine  ‘vdrain’  calculates  the  matric  potential  and  hydraulic 
conductivity  of  each  soil  element  by  calling  functions  ‘vxmatrx’  and  Vcon' 
respectively.  Rainfall  Is  added  to  the  surface  elements  which  may 
temporarily  have  a  water  content  In  excess  of  their  porosity.  If  this 
excess  water  is  unable  to  Infiltrate  by  the  end  of  the  ‘krep’  iteration,  extra 
slopewise  flows  from  the  surface  layers  are  calculated.  It  is  assumed 
that  this  ‘surface  water'  can  travel  overland  to  the  stream  within  the 
'krep'  iteration  -  i.e.  in  60/krep  minutes. 


Positive  pressures  (pres)  are  calculated  according  to  a  ‘catching  up' 
procedure  where  pressures  are  adjusted  to  correct  flow  imbalances  that 
occurred  in  the  final  five  minutes  of  the  'krep'  iteration. 


Subroutine  vlatf lo2‘  is  called  by  'vdrain'  to  calculate  the  slopewise  flow 
according  to  eq.  20221h.4h  in  algorithm  2022 1  h.4.  Control  is  returned  to 
'vdrain'. 


sir 


Subroutine  'vdrain'  also  calls  functions  'vxmatrx'  and  vcon'.  Function 
'vxmatrx'  calculates  the  matric  potential  according  to  Cambell  and  is 
detailed  in  algorithm  2022 1h.l.  Function  'vcon'  calculates  hydraulic 
conductivity  according  to  Cambell  and  is  detailed  in  algorithm  2022  lh.2. 
the  average  hydraulic  conductivity  between  two  different  soil  types  is 
calculated  according  to  Childs  and  is  described  in  algorithm  2022 lh.3. 

Subroutine  'vouta'  has  three  entry  points  Vouta  r,  'vouta2‘  and  'vouta3\ 
For  our  specific  application,  'vouta3'  (algorithm  202210  is  accessed  to 
evaluate  the  areas  of  saturation  and  apply  the  soil  strength  subroutine 
'vci'  to  the  surface  elements.  Function  Vxmatrx'  is  called  to  calculate  the 
matric  suctions  used  In  ‘vci*.  Subroutine  parts  Vouta  V  and  Vout2'  output 
the  geometrical  properties  of  the  segment  and  are  suppressed  in  this 
application. 

Subroutine  'voutb'  also  has  three  entry  points  and  outputs  the  dynamic 
quantities  calculated  in  the  scheme.  Of  specific  interest  in  this 
application,  is  the  output  of  RCI  to  a  suitable  output  file.  The  information 
output  to  other  files  includes  the  soil  water  status  of  each  element,  flow 
to  a  stream  on  an  hourly  basis.  These  output  facilities  have  been  retained 
as  they  will  be  useful  to  further  development  of  the  scheme. 

To  facilitate  further  development  of  the  VSAS2,  Appendix  A  describes 
the  variable,  parameter  and  counter  names.  Each  name  is  accompanied  by  a 
brief  description  of  their  use  and  any  other  subroutines  they  are  passed  to 


This  section  sets  out  the  algorithms  used  in  the  VSAS2.  The  solutions  are 
written  in  'pseudo-code',  which  is  an  intermediate  stage  between  the 
description  given  in  English  and  the  program  FORTRAN  code.  This  section 
is  represented  as  stage  3,  the  program  design,  shown  in  figure  1.2. 


6.2.5a  List  of  algorithms  in_the  following  section 


Algorithm  20221a  :Read  segment  information. 

Algorithm  20221b  .Calculate  geometric  variables  describing  the  segment. 

Algorithm  20221c  :Read  storm  Information. 

Algorithm  2022 Id  Determine  net  precipitation  after  interception,  storage 
and  drip. 

Algorithm  2022 1 e  :Read  Initial  moisture  content  Information. 

Algorithm  2022 If  Calculate  amount  of  overland  flow. 

Algorithm  20221g  initialize  hydrological  variables. 

Algorithm  2022 Ih  Calculate  vertical  and  slopewise  flow  between 
elements. 

Algorithm  202211  Calculate  areas  of  100  &  75  %  saturation  and  create 
small  elements  at  the  border  of  the  variable  source 
area. 


Algorithm  20221  j  :Read  soils  information. 
Algorithm  20221k  Calculate  soil  strength. 
Algorithm  20221 1  :Output  of  RCI  to  data  files. 


DEFINE 


data  file  to  be  read 


CHECK 

data  file  exists 


interactive  system  prompted 


READ  from  input  data  file  the  following  information: 


1 .  number  of  segments 

(mno) 

2.  title  name 

(name) 

3.  a  comment  note 

(note) 

4.  coarse  scale  iteration  interval 

(krep) 

5.  fine  seal  iteration  interval 

(Irep) 

6.  number  of  hours  between  printouts 

(npo) 

7.  option  for  printout  of  segment  geometry 

(nouta) 

8.  option  for  calc,  of  100  &  75%  saturated  area 

(ntmp) 

9.  segment  number 

(isgno) 

10.  total  number  of  segments 

(kno) 

1 1.  routing  delay  in  minutes 

(irout) 

12.  number  of  soil  layers 

(jno) 

1 3.  segment  area 

(sgarea) 

14.  channel  level 

(clevel) 

15.  stone  content  of  each  layer 

(stonec(1),i=1,jnc 

16.  number  of  increments  up  the  slope 

(nlimk(k),  k=kno) 

17.  elevation  of  each  increment 

(yi(k,n),k-l,kno 

n-1,nlimk) 

1 8.  depth  of  each  Increment 

(depmax(k,n),  k= 

kno,  n*l,nlimk) 


19.  distance  from  stream  of  each  Increment 


(xi(k,n),k=l,kno 
n=  l,nlimk) 


20.  width  of  segment  at  channel 

(xwidthd,  1 ),  i=1, 

kno) 

21.  width  of  segment  at  watershed 

(xwidthd, 2),  1-1, 

kno) 

22.  length  of  upstream  side  of  segment 

(horizO,  1 ),  1-1, 

kno) 

23  length  of  downstream  side  of  segment 

(hor1z(i,2),  1-1, 

kno) 

24.  depth  of  top  layer 

(adepth) 

25.  proportion  of  each  layer  In  remaining  depth 

(bdepth(i),  1  =2, 

jno) 

26.  proportion  of  area  that  Is  impermeable 

(atest) 

27.  minimum  thickness  of  layer  2 

(cdepth) 

28.  roffst 

(roffst) 

29.  position  {%)  along  slope  of  zones  of  changing 

soil  hydrological  properties  (max  of  3) 

(pos) 

30.  mean  length  of  segment 

(hlen) 

31.  cmax  of  each  layer 

(cmaxl(kj),  k- 

kno,  j=  1 , jno) 

32.  porosity  of  each  layer 

(poros  1  (k, j ),  k- 

- 

kno,  j=1,jno) 

33.  Cambell  coefficient  'a'  for  each  layer 

34.  Cambell  coefficient  b‘  for  each  layer 

(ca  1  (k, j ),  k=  1 , 

kno,  j=  1 , jno) 

(cb1(k,j),  k=l, 

34.  Cambell  coefficient  ’b'  for  each  layer 


longest  grid  network 


CALCULATE 

from  longest  grid,  the  division  of  the 
other  grids 


CALCULATE 

angular  angular  shifts  for  the  non-central 
flow  lines  for  3-D  application 


CALCULATE 

the  positioning  of  the  soil  layers 

CALCULATE 

the  geometric  description  of  each 
soil  element  for  whole  segment 


CALCULATE 


not  applicable 

toBORTS 

application 


total  area  of  simulation  segment 


interactive  system  prompted 


CHECK 

data  file  exists 

READ  from  input  data  file  the  following  information: 

1 .  date  -  day 

2.  date  -  month 

3.  date  -  year 

4.  hourly  precipitation  values  -  including  all 
zero  values  for  entire  run  period 


(iday) 

(imonth) 

(iyear) 

(precip(i),i=l, 
run  time ) 


storage  capacity  of  vegetation 


'/HEN 

rain  *  0.0 

CALCULATE 

if  any  rain  goes  into  storage 

SET  WHEN 

storage  is  full  all  further  rainfall  goes 
directly  onto  catchment 


rain  =  0.0 

CALCULATE 

20%  of  storage  is  realesed  to  catchment 


24  hour  rain  free  period 
SEI 


storage  -  0.0 
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ALGORITHM  2022 1e  .READ  INITIAL  MOISTURE  CONTENT  INFORMATION 

QEE1NE. 

data  file  to  be  read 

CHECK 

data  file  exists 

READ  from  input  data  file  the  following  information: 

1.  initial  moisture  content  for  each  element 
of  each  layer 


(pbv(k,n,j),  n=  1, 
nlimk,  j*1,jno, 
k*1,kno) 


CONTINUE 


ALGORITHM  2022 1  f  :  CALCULATE  AMOUNT  OF  OVERLAND  FLOW 

CALCULATE 

amount  of  channel  precipitation 


CALCULATE 

amount  of  precipitation  falling  on  impervious  surfaces 

CALCULATE 

flow  added  directly  to  possible  channel  in  the  segment 


H  AMvJT 


ctcm  riii;  PwaMEjwiiBw^^mwHaEggg 


position  of  all  elements 


FOR  all  elements 


1.  coefficients  of  moisture  release  curves 

2.  coefficients  of  the  unsaturated  conductivity  curves 

3.  porosities 

4.  saturated  hydraulic  conductivities 


cross-sectional  area  and  distance  for  flow 
between  elements 


cross-sectional  area  and  distance  for  flow 
between  streamside  elements  and  the  stream 


BjMfflfflfi 


s# 
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is 
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slopewise  flow  according  to- 


soil  moisture  content  (adding  precipitation  every  hour) 


CALCULATE 


potential  (Cambell's  method  -  eq.  2022 lh.l) 


hydraulic  conductivity  (Cambell's  method  -  eq.2022lh.2) 


CALCULATE 


flow  parameters  for  streamside  elements 


flows  (Richards  equation  -  eqs.  20221h.4f  &  20221h.4h) 


new  soil  moisture  contents  of  elements 


flow  into  stream 


vertical  flow  according  to:- 


parameters  for  vertical  flow 


vertical  flow  (Richard's  equation  -eq.  20221h.4f) 


new  soil  moisture  contents  of  elements 


•  • 


hs 


•  • 

% 


HR 

m 
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COKTINUE 


eq.  2022 1  h.  1 


V(©)  =  gc(_eJ'b 

e. 


■'sat 


where  1*1(0)  =  matrlc  potential  at  soil  water  content  e 
©  =  soil  water  content 

0Ml  =  saturated  sol  water  content 

Ve  =  air  entry  potential 

b  ■  empirical  coefficient 


CAMBELL'S  METHOD  OF  CALCULATING  HYDRAULIC  CONDUCTIVITY 
k(0)  *  ksat  (_g_)2b+2  eq.  2022 1  h.2 


where  k(0)  =  hydraulic  conductivity  at  soil  water  content  © 
0  =  soil  water  content 

0sal  =  saturated  soil  water  content 

kssl  =  saturated  hydraulic  conductivity 
b  -  empirical  coefficient 


A-  *  A 


where  k  »  average  hydraulic  conductivity 

kt©),  =  hydraulic  conductivity  of  element  1 

k(0)2  =  hydraulic  conductivity  of  element  2 
D,  =  thickness  of  element  1 


D2  *  thickness  of  element  2 


q  *  k(©)  Ah 


eq.  20221h.4a 


where  q  3  apparent  water  velocity 

k(©)  =  hydraulic  conductivity  at  soil  water  content  8 
Ah  -  hydraulic  gradient 


SSI 


•  • 


•  • 
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mm 


SSSSrKS 


£&  *  Aq 

at 


where  e  =  soil  water  content 
t  *  time 

Aq  *  flow  gradient 


Substitute  eg.  2022 1h. 4b  into  eq  20221h.4a; 
-  a  (k(d)Ah) 

at 


eq.  2022th.4b 


eq.  2022lh.4c 


Ah  =  V  ♦  z 


eq.  2022Jh.4d 


where  1,1  =  l,J(0)  =  matric  potential  at  soil  water  content 
0,  and  may  be  either  a  suction  or  a  pressure 
z  =  gravitational  head 
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Substitute  ea.  20221h.4d  into  eq.  2022  Ih.  4c- 


&  *  A  (k(9)A(y+Z)) 
dt 


eq.  2022 1.4e 


Expand  eq.  20221h.4e  in  x  and  z  directions 


{*  ix  =  2  *) 


£_[  k(0)  (3U  +  &)  ]  +  $_[  k(©)2  (&!♦&)  ] 


ax  ax 


az  az 


eq.  20221h.4f 


From  Bernier  ( 1 982),  x  represents  slope,  i.e.  x  cos  J3 


where  13  =  slope  angle 


x"  =  x  cos  B 


eq.  2022 1  h.4g 


Substitute  ea.  20221h.4g  into  eq.  20221h.4f 


*  cos2  B  2_  t  k(0)  ■  (ay. ♦  az)  ]  +  L  [  k(0)2  (ay  ♦  1 )  ] 


.  *  .  » 

ax  ax 


eq.  2022 Ih  4h 
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(Two  dimensional  flow) 


Expand  eg.  20221h.4e  In  2  direct lon:- 


{*  lx  -  1  *) 


=  2_[  k(6)  +  ] 

dt  aZ  az  az 


as  -  L-  [  k(e)ayce)  *  we)  ] 
at  az  az 


&  =  i_[  ttfilflifffill  +MS1 
at  az  az  az 


eq  20221h.41 


(One  dimensional  flow) 


CALCULATE 

elements  that  are  75  -  100  %  saturated 

RECALCULATE 

grid  to  give  Increased  spatial  resolution  at  the  border  of 
the  variable  saturation  zone 


CONTINUE 


ALGORITHM  20221  ]  :  READ  SOILS  INFORMATION 

DEEINE 

data  file  to  be  read 

interactive  system  prompted 

CHECK 

data  file  exists 

READ  from  input  data  file  the  following  inform  don: 


1.  internal  angle  of  friction 

(phi) 

2.  remoulded  angle  of  friction 

(phib) 

3.  soil  cohesion 

(c) 

4.  soil  shear  modulus 

(gg> 

5.  depth  of  cone  tip 

(zz) 

mm 


S3 


SSffl 


'■rmi 

mm 


.r*/V.»V 
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CONTINUE 


where  phi  *  internal  angle  of  friction 


b I  *  (tan(alpha)  ♦  tan(phi))  x  tan(alpha)  x  8  eq.  2022 1  k.2 


where  alpha  =  half  the  cone  tip  angle  =  15° 


‘ULATE  using  eq  2022 1  k.  I 


al  =  1  -  m 


a2  3  2  -  m 


a3  *  3  -  m 


eq.  2022 1k.3 


eq.  2022 1k.4 


eq.  2022 1k.5 


:ULATE  using  eqs.  2022 1  k.3-5 


b2  =  d2  x  a  I  x  a2  x  a3 


where  d  3  cone  diameter  3  0.799  in. 


eq.  2022 1  k.6 
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eq.  2022 1  k.  1 


b3  -  (gg  x  (l/tan(phi)))m 

where  gg  -  shear  modulus  (set  by  the  user) 
CALCULATE  using  eq.  2022 lk.3 
b4  -  (gamma)8' 

where  gamma  *  soil  density  -  0,067  lb/ in3 
CALCULATE  using  eqs.  2022 lk.2,  2022 1k.5  -  8 

si  =(bl  xb3xb4)/b2 

CALCULATE  using  eq.  2022  lk.5 

dl  -  ((c/ gamma)  x  ( 1  /tan(phi)) *  aal  ♦  zz)a3 
d2  *  ((c/gamma)  x  ( 1  /tan(phi)) +  zz)a3 
CALCULATE  using  eq.  2022 1  k.4 

d3  -  ((c/gamma)  x  ( i  /tan(phi))  ♦  zz)a2 

where  c  =  soil  cohesion  (user  defined) 


eq.  2022 Ik. 7 

eq.  2022 1k.8 

eq.  2022 1  k.9 

eq.  2022 Ik.  10 

eq.  2022 Ik. 1 1 

eq.  2022 Ik. 1 2 


aal  -  cone  length  =  1.48in 
zz  =dept'  of  cone  tip  (user  defined) 


CALCULATE  using  eqs.  2022 1  k.5  &  2022 1  k.  1 2 

d3  -  d3  x  a3  x  aa!  eq.  2022 Ik.  13 

CALCULATE  using  eqs.  2022 1  k.  1 0,  2022 1  k.  11  &2022 1  k.  1 3 
S2  =  d1-d2-d3  eq.  20221k.  14 

CALCULATE 

e  I  =  c  x  tan(alpha)  x  ( I  /tan(phi ))  eq.  202k  I  k.  1 5 

e2  *  uax  tan(phi)  eq.  2022 Ik.  16 

e4  =  (4  x  aal2  x  tan(alpha))/(d2)  eq.2022 1  k.  1 7 

where  ua  *  air  entry  matric  potential  *  -17.0  in 

CONTINUE 

DETERMINE 

dynamic  section  of  soil  strength  relationship 
(i.e.  the  influence  of  water)  according  to 

CALCULATE 

e3  =  (ua  ♦  uw)  x  tan(phib)  eq.  2022 1  k.  1 8 


where  uw  -  soil  water  matric  potential 


phlb  =  remoulded  internal  angle  of 
soil  friction  (user  defined) 

0.CULATE  using  eqs.  202k  1  k.  1 5- 1 8 

S3  -  (el  -  e2  +  e3)  x  e4  eq.  2022 Ik.  19 

ICULATE  using  eqs  2022 1  k.9,  2022 Ik .14  &  2022 1  k.  1 9 
vci  =  (s  1  x  s2)  -S3  eq.  2022 1  k.20 

mi l 


each  surface  element:- 


2.  area 


average  RCI  over  area  according  to:- 


DEEM 

name  of  output  file  according  to  the 

logical  series  of  output  files  named  interactive 

'data.  I . 'data.n',  where  'n'  may  be  system  prompted 

any  integer  up  to  30 

WRITE 

average  RCI  value  at  required  output 
intervals  for  duration  of  run 

WRITE 

calculated  grid  geometry 

suppressed  for  BORTS 

WRITE  application 

detailed  segment  soil  water 
status  at  interval  outputs 


To  consider  soil  strength  on  an  areal  basis,  a  method  of  representing  an 
area  was  required.  A  straightforward  way  to  do  this  is  to  impose  a  grid 
system  over  the  area  (figure  6. 1 1 ).  The  guidelines  in  section  7.5  give 
more  details  as  how  to  determine  the  resolution  of  the  grid  and  the 
minimum  soil  areas  to  be  considered. 


The  development  of  a  scheme  to  define  grid  specifications  was  based  on 

the  following  requirements:- 

6.3.  la  the  grid  must  be  variable  in  size,  i.e.  variable  number  of  columns 
and  rows; 

6.3.1b  the  grid  should  be  independent  of  grid  to  ground  scale,  i.e.  the  user 
determines  the  area  represented  by  each  square,  but  this  has  no 
effect  on  the  computational  running  of  the  scheme; 

6.3.1c  each  grid  square  is  identified  by  an  integer.  These  integers  refer 
to  one  run  of  either  the  B5SS  or  the  VSAS2,  where  the  output  is  to 
a  file  entitled  'data.n'  where  'n'  is  the  identifying  integer; 

6.3. Id  easy  editing  facilities  controlled  by  the  system; 

6.3. 1  e  the  scheme  should  be  user  friendly  in  terms  of 

(i)  system  information  when  choices  are  to  be  made, 

(ii)  system  prompts  for  user  response, 

(iii)  system  checking  for  'basic'  errors,  i.e,  whether  input  files  exist 
or  if  the  user  really  means  to  overwrite  an  existing  file. 


t  ***  fc’’*.***  **«.♦*•  *',»^' !.»**•**  'i.***.#1*.***-#'*,#  l»*=***‘*.*‘i«*  §»•'■«•  '(.« 


IDENTIFIERS  FOR  RCI  FILES 


KEY: 

|~~]  Soil  Type  1 
j^rj  Soil  Type  2 
Soil  Type  3 
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A  solution  to  these  requirements  was  devised  and  is  shown  in  figures 
6. 1 2and  6. 1 4  as  the  system  design.  By  considering  methodologies  to 
implement  the  solutions  of  the  system  design  the  algorithms  were  written 
(section  6.3.5)  to  provide  the  program  design  shown  in  figures  6. 13  and 
6.15.  According  to  these  algorithms,  program  code  was  constructed 
(Appendix  B)  and  is  discussed  in  the  program  implementation  in 
sections  6.3.3  and  6.3.4. 


6.3.2  Development  of  System  Design 

General  system  designs  were  developed,  firstly,  for  creating  a  new  grid 
(figure  6.12)  and  secondly,  for  editing  an  existing  grid  (figure  6.14). 
These  are  not  of  the  same  complexity  as  the  schemes  described  In 
sections  6.1,  6.2  and  6.4,  and  this  is  reflected  in  the  small  number  of 
modules  used  to  describe  the  grid  specification  scheme. 

The  input  requirements  are  the  grid  specifications  which  are  then  stored 
in  a  data  file.  A  new  grid  is  created  by  the  BNG5.  The  user  may  then  edit 
any  ‘identifying  integer'  within  the  grid  through  the  EEGS. 


6.3.3  Description  of  the  Program  Design 

The  system  design  of  the  two  schemes  is  further  refined  to  the  program 
designs  shown  in  figures  6. 1 3  and  6. 15  for  the  BNGS  and  EEGS 
respectively.  The  two  schemes  act  independently:- 


...  g.»  v1  •*.»•*>  ».« ‘ »  ‘ u*  i,«  i»«  ».»  **,*  «i* ,*•' 


■&£&£$: 

WlsWX'tt 


The  BNGS  requires  input  information  regarding  the  dimensions  of  the  grid 
(algorithm  2031a)  and  the  identifying  integer  for  each  grid  square 
(algorithm  2031b).  The  grid  specifications  are  then  written  to  a  data 
file  for  use  by  the  route  management  scheme. 

6.3.3b  EEGS 

The  EEGS  requires  an  existing  grid,  that  has  been  created  through  the 
BNGS,  to  be  read  (algorithm  2032a).  The  system  will  then  ask  the  user 
which  grid  square  is  to  changed  (algorithm  2032b).  For  this  grid  square 
the  new  identifying  integer  supplied  by  the  user  will  replace  the  existing 
one  (algorithm  20320.  The  modified  grid  is  now  written  to  a  data  file 
(algorithm  2032d).  This  modified  grid  can  be  altered  as  many  times  as 
the  user  requires. 


6.3.4  PROGRAM  IMPLEMENTATION  Grid 

Using  the  program  design  and  the  algorithm  specifications  detailed  in 
section  6.3.5,  FORTRAN  code  was  constructed  (Appendix  B)  to  solve  the 
algorithms.  As  in  the  other  modules  (figure  1.3),  the  consistency  in 
programming  style  has  been  maintained  through  the  construction  of  small 
separate  subroutines  called  by  a  controlling  subroutine  (TcntD  This 
programming  style  allows  the  development,  replacement  or  addition  of 
algorithms  with  ease. 


The  grid  specification  scheme  has  been  developed  alongside  the  optimum 
route'  management  scheme  .  Although  the  two  schemes  are  controlled  by 


the  same  subroutine  -  namely  'rent!',  they  are  independent  of  each  other  in 
terms  of  creating  a  grid  and  running  the  route  management  scheme,  it 
should  be  remembered  though,  that  to  run  the  route  management  scheme  a 
grid  and  corresponding  RCI  data  files  must  exist.  In  this  section  the 
subroutines  referring  to  the  creation  and  editing  of  a  grid  will  be 
discussed. 

From  the  ‘subroutine  tree’  in  figure  6.16,  it  can  be  seen  that  subroutine 
‘rentr  calls  the  four  subroutines  'rcreate',  'rcheck',  Ysave'  and  Tread r.  As 
their  names  indicate,  ‘rcreate’  allows  the  user  to  create  a  new  grid  -  each 
input  is  prompted  by  the  system.  Alterations  to  an  existing  grid  take 
place  in  'rcheck'.  The  grid  is  saved  through  the  subroutine  Ysave’  and  a 
grid  is  read  by  subroutine  'rreadl'. 

To  facilitate  further  development  of  the  grid  specification  scheme, 
Appendix  A  describes  the  variable,  parameter  and  counter  names  used  in 
the  schemes.  Each  name  is  accompanied  by  a  brief  description  of  their  use 
and  any  other  subroutines  they  are  passed  to  or  from. 


This  section  sets  out  the  algorithms  used  In  BNGS  and  EGGS.  The  solutions 
are  written  In  ’pseudo-code',  which  is  an  intermediate  stage  between  the 
description  given  in  English  and  the  program  FORTRAN  code.  This  section 
is  represented  as  stage  3,  the  program  design,  shown  in  figure  1.2. 


6,3,5a UsL  sL  .algorithms,  used  in,  BNG.5. 


Algorithm  2031a  :Read  grid  dimensions. 
Algorithm  2031b  :Read  'identifiers'. 
Algorithm  2031c  :Output  of  grid. 


6.3.5b  List  of  algorithms  used  in  EGGS 

Algorithm  2032a  :Read  data  file. 


Algorithm  2032b  ;Edit  'identifiers'  of  grid  squares. 
Algorithm  2032c  :Read  new  'identifier'. 

Algorithm  2032d  .Output  of  grid. 
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(see  figure  6.1 1) 
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R1THM  2032d  :QUTPUT  OF  GRID  (EGGS) 
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The  general  requirements  set  out  In  section  1.2  clearly  define  the  need 
to  apply  the  results  of  the  BSSS  and  the  VSAS2  to  trafficability  problems. 
This  may  be  in  the  form  of  'maps’  as  described  by  a  grid  where  the 
information  computed  by  the  B5S5  and  the  VSAS2  can  be  used  in  route 
management  problems. 


6.4. 1  Specification  of  Detailed  Requirements 

The  following  requirements  were  defined  as  an  initial  scheme  for  route 
management¬ 
s',  la  evaluation  of  RC!  over  a  given  route  (figure  6. 1 7a); 

6.4. 1  b  calculation  of  an  optimum  route  across  an  area  (figure  6. 1 7b); 
6.4.1c  calculation  of  an  optimum  route  limited  by  having  to  go  through  a 
particular  'problem'  grid  square  (figure  6. 1 7c); 

6.4. Id  the  inclusion  of  'time  passing'  must  be  inherent  in  each  scheme, 
6.4.  le  the  scheme  should  be  user  friendly  in  terms  of:- 
(i)  system  menu  Information  when  choices  are  to  be  made, 

(11)  system  prompts  for  user  response, 

(iii)  system  checking  for  'basic'  errors  -  f.e.  whether  input  files  exist  or 
if  the  user  really  means  to  overwrite  an  existing  file; 

6.4. 1  f  data  input  is  derived  from  the  running  of  the  BSSS  and  /or  the 
VSA52. 


These  requirements  led  to  the  system  design  of  two  types  of  approach. 
Firstly,  the  evaluation  of  RCI  over  a  given  route  (figure  6. 1 8)  and, 


COLUMNS 


6.17b  Which  is  the 
best  route? 


6. 17c  Which  is  the  best 
route  that  goes 
through  square  4? 


secondly,  the  'optimum  route'  calculation  (figure  6.20).  The  'problem 
route  being  a  manipulation  of  the  'optimum  route'  calculation. 


The  two  approaches  will  both  access  the  bank  of  data  files  (figure  6.22) 
generated  by  the  running  of  the  BS55  and  the  VSAS2  at  the  required  time 
intervals.  Output  will  be  in  the  form  of  RCI  over  the  specified  route  for 
the  'route  evaluation  scheme',  and,  in  terms  of  grid  square  moves  for  the 
two  variations  of  the  'optimum  route  scheme'. 

Further  refinement  of  the  system  designs  and  devising  methodologies  to 
implement  the  solution  are  shown  in  figures  6. 1 9  and  6.2 1 .  As  with  the 
previous  schemes,  the  algorithms  are  referenced  in  brackets  and  are 
specified  in  section  6.4.6.  The  code  for  these  algorithms  is  given  in 
Appendix  B  and  the  program  Implementation  is  discussed  in  sections 
6.4.3  and  6.4.4 

6.4.2  Development  of  System  Design 

The  division  of  the  route  management  system  into  two  major  components 
necessitates  two  system  designs,  namely  the  'Bristol  Route  Evaluation 
Scheme'  (BRE5)  and  the  'Bristol  Optimum  Route  Scheme'  (B0R5).  These  are 
shown  in  figures  6.18  and  6.20  respectively. 

As  with  the  development  of  the  previous  schemes  the  system  designs  form 
a  modular  framework  specifying  the  flow  of  information  through  the 
system,  the  general  function  of  the  system  and  the  output  of  the  required 
information,  This  framework  is  the  developed  to  formulate  the  program 
design  discussed  in  the  following  section. 
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The  system  design  of  the  two  schemes  is  further  refined  to  the  program 
designs  shown  in  figures  6.19  and  6.21  for  the  BRE5  and  the  BOR5 
respectively.  The  two  schemes  act  independently:- 


fiA3a.BRES. 

The  BRES  requires  information  about  the  route  to  be  evaluated  from  the 
user  (algorithm  2041a).  The  identifying  integer  associated  with  nodes 
along  the  route  allow  the  data  bank  facility  (section  4.4)  to  be  searched 
(algorithm  2041b)  and  consequently  the  RCI  along  the  route  to  be 
evaluated  (algorithm  2041c).  The  information  about  the  specified  route 
is  then  written  to  a  data  file  (algorithm  2041  d). 


MJDfiQRS 

The  BORS  requires  information  about  starting  and  finishing  positions 
(algorithms  2042a  and  2042d)  on  a  specified  existing  grid  (algorithm 
2042b).  The  data  bank  facility  is  the  searched  (algorithm  2042c)  so 
that  a  library  of  RCI  values  is  built  up  for  the  grid  (figure  6.22).  The 
direction  of  movement  is  then  calculated  according  to  a  combination  of 
highest  RCI  and  shortest  distance  (algorithms  2042e  -  20421).  When 
the  finish  grid  square  has  been  attained  the  route  is  written  to  a  data  file 
(algorithm  2042 j) 


From  the  program  design  and  algorithm  specifications  given  in  sections 
6.4.3.  and  6.4.5,  FORTRAN  code  was  constructed  to  solve  the  algorithms. 
As  with  the  previous  modules  (figure  1.3)  the  consistency  in 
programming  style  has  been  maintained  by  the  construction  of  small 
separate  subroutines  called  by  a  controlling  subroutine.  In  this  case  the 
route  management  scheme  has  been  divided  into  two,  that  is,  the 
'evaluation  of  RCI  over  a  route’  has  been  developed  separately  (figure 
6.18)  and  the  'optimum  route’  calculation  has  been  developed  along  wfth 
the  grid  specification  scheme  (figure  6.20).  This  occurred  because  the 
'optimum  route'  calculation  depends  on  the  grid  specifications,  whereas, 
the  'evaluation  of  RCI'  over  a  route  depends  on  the  user  defining  the  route 
precisely  (figure  6.17a)  in  terms  of  nodes,  distance,  time  and  identifier' 
of  each  node  alor ;  the  route. 


6.4.4a  Evaluation  of  RCI  over  a  route  (BRES) 

The  'subroutine  tree'  shown  in  figure  6.23  demonstrates  the  flow  of 
control  with  the  appropriate  algorithms  coded  in  the  subroutines  given  in 
brackets.  All  subroutines  within  this  scheme  begin  with  a 't'  and  can  be 
considered  as  representing  module  2041  in  figure  1.3  Subroutine  tenth 
accesses  only  subroutine  tred'  which  has  two  entry  points  -  namely  'tred  1 ' 
and  'tred2',  which  create  a  new  route  and  read  an  existing  route 
respectively.  The  small  amount  of  data  file  searching  and  the  output  of 
the  results  is  carried  out  in  'tentr  itself. 
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The  'subroutine  tree'  shown  in  figure  6.24  indicates  the  flow  of  control, 
with  the  appropriate  algorithms  coded  in  the  subroutines  given  in 
brackets.  As  discussed  in  the  'grid  specification'  section,  subroutines 
'rcreate',  'rcheck',  'rsave'  and  'rreadl'  refer  to  algorithms  defining  the  grid. 
Subroutine  Yroute’ ,  as  its  name  implies,  controls  the  'optimum  route' 
scheme.  Subroutine  Yroute'  calls  two  subroutines,  namely  Yread2'  to  read 
the  grid  specifications,  and,  Yrcid'  which  searches  the  bank  of  data  files 
created  by  the  BSSS  and  the  VSAS2.  The  optimum  route  is  calculated 
according  to  algorithms  2042c  -2042i.  Subroutine  Yrcid'  calls  subroutine 
Yprintr  to  output  the  route  in  terms  of  a  series  of  grid  square  moves. 

To  facilitate  further  development  of  the  route  management  scheme, 
Appendix  A  describes  the  variable,  parameter  and  counter  names.  Each 
name  is  accompanied  by  a  brief  description  of  their  use  and  any  other 
subroutines  they  are  passed  to  or  from. 
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Algorithm  2041a  -.Read  run  specifications. 
Algorithm  2041b  :5earch  data  bank. 
Algorithm  2041c  ;Calcu!ate  RCI  along  route. 
Algorithm  2041  d  :Output  of  evaluated  route. 


Algorithm  2042a  :Read  run  specifications. 

Algorithm  2042b  :Read  grid  specifications. 

Algorithm  2042c  :Search  data  bank. 

Algorithm  2042d  :Read  route  specifications. 

Algorithm  2042e  .Calculate  direction  of  movement. 
Algorithm  2042f  -.Reset  to  eliminate  loops  in  route. 
Algorithm  2042g  :Calculate  bias. 

Algorithm  2042h  .Assess  three  grid  squares  for  next  move. 
Algorithm  2042i  :Set  check  flags. 

Algorithm  2042j  :Output  of  route  information. 
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1.  column  bias  biasc  =  finish  col  -  present  col 

2.  row  bias  biasr  =  finish  row  -  present  row 

3.  total  bias  total  »  biasc  +biasr 
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The  benefits  of  adopting  a  clearly  defined  development  strategy  have  been 
discussed  in  section  1.4  This  section,  through  the  adoption  of  that 
strategy,  has  documented  stages  1  -A  in  figure  1.2  for  the  design  of  the 
components  of  the  SORTS.  Each  component  has  had  the  requirements 
stated  in  section  1.2  further  refined,  a  system  design  formulated  on  the 
basis  of  the  detailed  requirements,  a  program  design  developed,  computer 
code  constructed  and  subsequently  discussed  in  the  program 
implementation. 

The  extent  of  the  modules  or  components  developed  in  this  section  are:- 

(a)  The  BSSS  (section  6.1),  which  is  based  on  an  existing  infiltration  and 
evaporation  scheme.  The  errors  in  the  original  scheme,  such  as  the 
omission  of  correct  albedo  handling,  and  coding  errors  were  corrected 
New  development,  as  discussed  in  section  4,  was  incorporated  into 
the  scheme. 

(b)  The  VSAS2  (section  6.2)  was  adapted  to  calculate  soil  strength  over 
the  segment.  Superfluous  output  was  restricted  though  is  still 
available  for  further  development.  The  scheme  was  made  more  user 
friendly  according  to  section  44,  Requirements  for  the  scheme 
(Bernier,  1982)  have  been  combined  with  the  requirements  of  this 
project  and  as  inadequate  documentation  for  the  V5AS2  scheme 
existed,  system  and  program  designs  have  been  drawn  up  in  this 
section.  The  VSA52  code  (Whitelaw, !  987)  has  remained  as  unaltered 
as  possible  and  the  manner  in  which  it  solves  the  two  dimensional 
infiltration  equation  (section  3.3),  hydraulic  conductivity,  matnc 
potential  etc.  remains  the  same.  It  is  considered  that  having  a 
basically  unaltered  VSAS2  scheme  as  an  option  in  the  BORT5  will  be  of 
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great  benefit  for  Initial  comparisons  (sections  10.2  and  10.3). 
Further  development  of  the  V5A52  scheme  will  be  an  important  aspect 
to  the  second  generation  B0RT5  model  outlined  in  section  10.4. 

(c)  The  creation  of  a  grid  (section  6.3)  for  the  route  management  scheme 
has  been  developed  specifically  for  application  to  this  project. 

(d)  The  development  of  two  route  management  schemes  (section  6.4)  for 
specific  application  to  this  project.  These  included  a  route  evaluation 
scheme  and  an  optimum  route  scheme  which  could  also  be  applied  to 
problem  routes  as  discussed  in  section  5. 

The  use  of  this  section  is  primarily  for  further  development,  tracing 
errors  as  discussed  In  section  1.4.8  and  general  maintenance  of  the 
system.  The  progression  through  the  development  of  each  component  is 
one  that  becomes  increasingly  more  complicated  allowing  scrutiny  at 
different  levels  of  complexity.  This  flexibility  for  the  developer  or 
maintainer  is  an  important  aspect  to  software  and  system  quality. 
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1  GUIDELINES  FOR  THE  USER 


7.1  Input  data  for  the  B5SS 


The  input  data  requirements  for  the  B5S5  have  been  split  into  three 
sections:- 


7.1.1  Meteorological  Data  (algorithm  20?  1  la) 


All  these  variables,  with  the  exception  of  albedo,  3re  readily  available, 
measurable  data.  The  input  of  3lbedo  for  different  types  of  surfaces  may 
be  estimated  from  figure  7.1.  Cloud  type  is  clarified  in  figure  7.2. 


7. 1 .2  Site  Information  (algorithm  202 1 1  d) 


The  description  of  an  example  soil  profile  is  given  in  figure  6.2.  The 
evaluation  of  the  topographic  index,  aos,  is  derived  from  calculating  a/s, 
where  a  =  area  drained  per  unit  contour  length,  and,  s  =  local  slope  angle 
Areas  that  are  described  as  flat  with  little  area  draining,  i.e.  low  a/s 
values  are  allocated  an  aos'  value  of  10.  Areas  that  are  described  as 
slopes  with  a  certain  amount  of  area  draining,  i.e.  medium  a/s  values  are 
allocated  an  aos'  value  of  1 .2.  Areas  that  are  described  as  flat  with  a 
larger  area  draining  into  it,  i.e.  high  a/s  values  are  allocated  an  aos  value 
of  0.8.  These  rules  are  summarized  in  section  7.5  Surface  azimuth  is 
abstracted  from  the  tooograDhic  mao. 
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Silty  loam 
Loam 

Sandy  loam 
Loamy  sand 
Silty  clay  loam 
Clay  loam 
Sandy  clay  loam 
Silty  clay 
Sandy  clay 


Julian  day  and  duration  of  run  time  are  straightforward  for  the  user  to 
define  but  the  setting  of  the  iteration  time  step  for  the  inexperienced  user 
may  be  problematic.  Obviously  the  smaller  the  iteration  time  step,  the 
less  likelihood  there  is  of  mathematical  instability.  On  the  other  hand,  the 
larger  the  iteration  time  step,  the  quicker  the  scheme  will  be  to  run.  It  is 
recommended  that  the  iteration  time  step  is  chosen  from  the  range  I  Os  - 
120s.  The  frequency  of  output  requirements  will  also  influence  the  choice 
of  the  time  step,  e.g.  output  every  fifteen  minutes  would  indicate  that  a 
lower  iteration  time  step  might  be  more  appropriate. 


7.2-Qutput.Data  for,  the  BSS5 

For  the  application  of  the  BSS5  to  route  management  problems,  the  output 
from  the  B5SS  of  hourly  RCI  values  must  be  stored  in  a  data  file  entitled 
'data.n',  where  'n'  is  an  integer  from  1  to  30,  and  refers  to  an  identification 
procedure  used  in  both  the  grid  and  route  schemes.  There  is  extra  output 
readily  available  for  the  developer  to  check  the  scheme  or  adapt  the 
scheme  for  other  applications. 


7.3  input  Data  for  the  V5AS2 


The  input  data  requirements  for  the  VSA52,  can  be  divided  into  four 
categories:- 


These  are  the  same  as  required  by  the  BS55,  and  are  easily  measurable 


initial  moisture  contents  for  each  element  (figure  6.7)  must  be  provided 
by  the  user. 


The  storm  characteristics  for  each  hour  of  the  run  duration  must  be  Input, 
even  if  zero.  The  program  will  accept  lines  of  blanks,  where  each  blank 
line  represents  eight  hours  of  no  rain. 
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Figures  and  show  the  geometric  description  of  the  segment  required  to 
run  the  VSAS2.  The  other  information  required  but  not  shown  in  figures 
and  includes  stone  content,  level  of  the  top  layer  above  the  channel,  and 
area  of  impervious  surface  area.  These  are  all  described  in  figure  6.7 
and  section  6  Also  included  in  this  input  section  are  the  coefficients 
and  saturated  hydraulic  conductivity  for  use  in  calculating  the  soil 
moisture  characteristic  curves.  The  evaluation  of  these  input  is  through 
extra  information  and  /  or  user  experience. 


The  output  of  RC!  information  is  sent  to  files  entitled  data.n',  where  ‘n’  is 
the  identifying  integer,  The  RC!  is  an  average  of  the  RCI  over  the  entire 
segment.  There  is  also  extra  output  data  available  -  describing  the 
geometry  of  the  segment  and  detailed  soil  water  information  throughout 
the  segment  at  hourly  intervals.  This  has  been  restricted  for  this 
application  but  is  easily  available  to  aid  further  development  and 
applications. 


5  Setting  Uo  the  Grid  For  Use  In  Running  the  B5S5.  YSASZand  Route 
Management  Scheme 

1.  Identify  major  soil  types  (1..1 1,  figure  7.3). 

2.  Identify  any  'no-go'  areas. 

3.  Identify  major  'a/s'  areas,  where  a  =  area  drained  per  unit  contour 
length,  and  s  =  local  slope  angle,  (n.b.  number  of  'a/s'  categories  =  AS) 

4  Identify  major  soil  area  as  %  of  'go'  area  (MAX). 

5.  Solve  equation  8.5. 1  with  the  results  from  3  and  4  to  determine  the 
minimum  soil  area  (MIN)  to  be  considered. 

6.  Identify  all  soil  areas  with  an  area  greater  than  MiN. 

7.  Calculate  maximum  possible  number  of  runs  = 

(number  of  soil  areas  x  AS] 

8.  Compare  value  calculated  in  7  with  computer  restricted  run  number  - 
adjust  MiN  until  number  of  runs  is  within  the  acceptable  restricted  run 
number. 


9.  Identify  each  grid  square  with  an  identifying  run  number  (figure  6. 1 1 


1 0.  Set  up  on  the  computer: 


(a)  input  files  for  all  runs  (menu  driven), 

(P)  grid  description  (menu  driven). 

1 1.  Run  package  (menu  driven). 

Equation  7.5.1:  First  approximation  of  minimum  soil  area  to  consider. 
MIN  =  AS(  100-MAX) 

(R-A5) 

where  MIN  -  %  minimum  soil  area  to  be  considered 
MAX  =  %  maximum  area  of  major  soil  type 
AS  -  number  of  'a/s’  categories 
R  =  maximum  number  of  computer  runs  available 


13  Evaluate  RCLOver  a  Route 

Figure  6.17a  shows  an  example  route  to  be  evaluated.  To  evaluate  this 
route  the  computer  will  ask  the  user  to  define  the  following  information 

i  number  of  nodes  along  the  route, 

2.  for  each  node:- 
(a)  distance  along  the  route, 

<b)  time,  t,  of  the  output  in  'data.n'  to  be  used, 

<c)  identifying  integer,  n',  for  access  to  file  'data.n'. 


This  scheme  expects  s  full  set  of  data  files  to  be  available  for  every 
identifyer'  specified  in  the  chosen  grid  (figure  6.1 1 )  The  system  will 
prompt  the  user  for  start  and  finish  grid  squares.  The  scheme  outputs  the 
calculated  route  as  a  series  of  grid  steps. 
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8  Assumptions  and  Limitations  ot_thg„  BORIS 

M..BSSS 

The  development  of  the  BSSS  according  to  the  requirements  set  out  in 
sections  3.2,  3.4,  4  and  6.1  necessitated  making  some  assumptions. 
These  assumptions  are  necessary  because  of  the  complex  nature  of  the 
real  world  processes  which  the  submodels  used  in  the  BSSS  are  trying  to 
simulate. 


8.1.1  Infiltration  Scheme 

The  one-dimensional  infiltration  scheme  adopted  for  use  in  the  BSSS  is 
described  in  section  3.2.  An  important  aspect  of  adopting  any  scheme  is 
to  specify  the  situations  where  it  can  and  cannot  be  used.  The 
circumstances  in  which  Darcy's  law  can  be  applied  are  as  foiiows:- 

8. 1 . 1  a  The  body  being  mode!  led  must  be  large  in  comparison  to  the 
microstructure,  i.e.  approximately  a  metre  or  more  deep  is 
adequate  but  when  assessing  the  flow  of  water  to  a  plant  root 
from  the  volume  of  soil  associated  with  it  which  may  only  be  a 
few  cm  s,  the  application  of  Darcy's  law  would  be  inappropriate 
(Hiiiel,  1980). 

8.1.1b  The  velocity  of  flow  must  be  small.  This  is  assessed  by  the 
evaluation  of  Reynold's  number: 

R  =  vr/p/if  eq.  8.1 
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where  R  *  Reynold's  number 

v  -  mean  velocity  of  flow 
r  =  mean  pore  size 
p  ■  density  of  the  fluid 
n  =  viscosity  of  fluid 


When  the  Reynold's  number  exceeds  1000  the  flow  is  no  longer 
laminar  and  as  the  Stokes-Navier  equation  on  which  Darcy's  law  is 
based  is  only  applicable  to  laminar  flow  it  must  also  be  true  that 
Darcy's  law  will  no  longer  be  applicable.  It  was  found  by  Fancher, 
Lewis  and  Barnes  (1933)  that  the  restriction  of  Darcy's  law  should 
be  to  when  Reynold's  number  is  less  than  1 .  In  the  majority  of 
applications  Reynold's  number  takes  a  value  in  the  order  of  0  1. 

8.1.1c  It  Ignores  the  Internal  structure  of  the  conducting  medium,  i.e.,  It 
is  modelled  as  a  uniform  medium  with  the  flow  uniformly 
distributed  over  the  cross-section. 
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8,1. Id  No  account  is  taken  of  the  hystersis  effect  encountered  in  the 
wetting  and  dryylng  of  soils. 

8.1.1  e  it  is  assumed  that  Richard's  equation  accurately  describes 
vertical  movement  of  water  in  the  soil  profile.  The  effect  of 
macropores,  piping  or  crusting  is  not  considered. 

8.1. If  The  effect  of  a  wide  range  of  temperatures  is  not  considered. 

8.1.1g  When  the  rain  intensity  exceeds  the  infiltration  capacity  of  the 

soil  and  the  soil  surface  detention  is  exceeded,  it  is  assumed  that 
the  extra  rainfall  runs  directly  off  into  a  river  system  and  is  not 
available  for  infiltration  on  its  passage  to  the  river.  With  the 
inherent  variability  of  both  hydrological  characteristics  of  any 
given  soil  type  and  the  soil  moisture  content  across  a  surface 
area,  this  may  be  an  important  restriction  especially  in  the 
two-dimensional  application. 


The  calculation  of  evaporation  by  the  non-isothermal  routine  described  in 
section  3.4.  The  main  restriction  of  the  routine  is  in  evaluating  the 
albedo  parameters  used.  Section  4.2  sets  out  the  problem  in  more  detail 
and  provides  a  methodology  for  helping  the  non-expert  evaluate  the  albedo 
of  surfaces.  The  scheme  assumes  that  the  albedo  does  not  alter  in  value 
as  the  soil  changes  moisture  content, 

Although  the  scheme  calculates  evaporation  it  does  not  account  for 
evaporation  from  vegetation  or  transpiration  from  vegetation.  There  is 
also  no  evaluation  of  interception  by  the  vegetation  canopy.  The 
implication  of  these  restrictions  Is  that  the  scheme  is  really  only 
applicable  to  areas  where  transpiration  is  considered  small  in  comparison 
to  the  evaporation.  In  effect  this  limits  application  to  temperate  or 
colder  type  climates. 


The  development  of  the  soil  characteristic  data  bank  has  a  major  inherent 
restriction  in  that  a  soil  is  described  as  one  of  the  eleven  USDA  soil  types. 
Given  that  restriction,  the  soil  characteristic  parameters  are  calculated 
from  distributions  described  by  Rawls  and  Brakensiek  ( 1 982)  and  from 
their  results.  The  values  used  to  describe  each  soil  type  do  not  include  the 
effects  of  organic  matter  content  or  changes  in  porosity. 


The  calculation  of  Cl  is  well  defined  in  section  4.1,  but  the  calculation 
of  RCI  as  defined  by  the  U.S.  Army  ( 1 959)  has  been  assumed  to  be 
represented  by:- 

RCI  *  Cl  x  Remoulded  Index 

where  the  remoulded  index  is  assumed  to  be  equal  to  0.7. 

This  assumption  is  based  on  a  'typical'  value  across  the  range  of  USDA  soil 
types.  In  reality  the  remoulding  index  has  been  found  to  have  the  following 
ranges  (U.S.  Army,  1959):- 

(a)  Inorganic  clays  of  high  plasticity  0.75  -  1 .35 

(b)  Clayey  gravels,  gravel-sand-clay 

mixtures,  clayey  sands,  inorganic  0.45  -  0.75 
clays  of  low  to  medium  plasticity, 
silty  clays 


(c)  Silty  gravels,  silty  sands,  inorganic 
and  organic  clays  and  silts,  fine 
sands,  clayey  silts 


0.25  -  0.85 


The  restrictions  of  the  infiltration  scheme  used  in  the  BSSS  also  apply  to 
the  two-dimensional  scheme  used  in  the  VSAS2.  As  the  same  method  of 
calculating  soil  strength  the  restriction  of  the  RCI  evaluation  also  applies. 
The  other  assumptions  and  limitations  of  the  VSAS2  are  as  follows:- 


There  is  no  calculation  of  evaporation  or  evapotranspiration  within  the 
VSAS2  scheme  though  there  is  an  empirically  based  system  for  modelling 
the  interception  of  the  vegetation  canopy  and  treating  the  canopy  as  a 
temporary  storage  of  the  intercepted  water  which  Is  released  at  a  set  rate 


dependent  on  the  size  of  the  store. 


The  V5A52  can  only  simulate  the  spatial  variability  of  meteorological  or 
soil  variables  through  the  input  data  files.  This  entails  much  work  for  the 


The  route  management  scheme  through  its  use  of  a  grid  assumes  that  an 
area  can  be  adequately  modeled  by  the  resolution  of  the  grid.  This  is 
alleviated  through  the  development  of  a  hierarchy  of  grid  systems  which 
concentrate  on  either  problem  areas  or  areas  of  special  interest. 
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The  use  of  the  RCI  library  requires  careful  'housekeeping'  by  the  user  and 
can  be  considered  as  a  restriction  to  the  inexperienced  user.  The 
accessing  of  the  RCI  library  is  conditional  upon  distance  travelled  and  the 
speed  of  the  vehicle.  In  this  first  generation  route  management  scheme  an 
average  speed  across  a  route  is  asked  for.  From  the  work  carried  out  from 
the  DRIVEB  model  an  improvement  of  the  scheme  is  outlined  in  section  10 
which  will  include  the  automatic  calculation  of  speed  from  RCI  and 
therefore  the  system  will  calculate  when  the  next  set  of  RCI  files  should 
be  accessed. 


8.4  Conclusions 

The  60RTS  is  a  ffrst  attempt  to  develop  a  scheme  with  the  requirements 
set  out  in  section  1.2.  As  such,  it  was  important  to  develop  a  strategy 
(section  1.4)  which  would  allow  the  main  processes  to  be  modelled  in  a 
manner  that  could  be  considered  as  independent.  This  independence  allows 
any  of  the  schemes  to  be  easily  replaced  or  upgraded  by  improve  methods. 

The  complex  nature  of  the  real  world  has  led  to  the  development  of  models 
that  simulate  physical  processes  in  a  simplified  manner.  This  has 
necessitated  making  assumptions  and  imposing  limitations  on  the  use  of 
the  models.  The  development  of  the  BORTS  has  used  several  well 
established  procedures  and  has  developed  several  new  methods  of  solving 
physical  relationships,  Although  none  of  these  procedures  are  perfect  as 
is  shown  by  the  assumptions  and  limitations  listed  above,  they  do  attempt 
to  deal  with  the  main  physical  processes.  The  independent  nature  of  the 
development  strategy  will  enable  several  of  these  restrictions  to  be  lifted 
after  further  development. 


It  should  of  course  be  noted  that  although  one  of  these  restrictions  might 
be  solved,  the  new  set  of  restrictions  accompaning  a  new  procedure  may 
be  greater.  There  is  also  a  very  real  possibility  that  the  increased 
sophistication  of  a  new  methodology  may  negate  some  of  the  requirements 
of  the  overall  system.  When  compared  to  when  and  where  the  system  can 
be  used  with  confidence,  the  above  restrictions  are  not  considered 
excessive. 


The  following  section  assumes  that  all  the  subroutines  nave  been  compiled 
and  a  master  control  file  has  been  created  (see  appendix  C  for  details 
of  how  to  compile  the  package).  In  this  case  the  package  has  been  called 
master'.  The  data  files  required  throughout  this  teaching  facility  either 
must  exist  or  you  are  guided  through  the  steps  to  create  new  data  files. 

It  is  not  necessary  for  the  user  to  work  through  this  teaching  facility  in 
one  go  -  the  user  can  end  a  session  anytime  the  master  menu  appears  on 
the  screen  and  the  option  '5  FINISH'  is  selected. 

The  teaching  facility  will  demonstrate  the  following  procedures:- 

9.1  Run  one  BS55  file. 

9.2  Run  three  BSSS  files. 

9.3  Run  one  V5A52  file. 

9.4  Apply  results  from  9. 1  -  9.3  to: 

(a)  evaluate  a  given  route, 

(b)  calculate  optimum  route. 

9.5  Edit  a  BSSS  input  file  and  run. 

9.6  Edit  a  V5AS2  input  file  and  run. 

9.7  Edit  a  grid  to  incorporate  new  files. 

9.8  Apply  results  9. 1  -9.3  &  9.5  -  9  7  to: 

(a)  evaluate  a  given  route, 

(b)  calculate  optimum  route. 
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4 

INPUT  TINE  STEP  OF  NODE  2 

3 

INPUT  D I  ST  OF  NODE  ALONG  ROUTE  3 

2 

INPUT  IDENTIFIER  OF  NODE  3 

2 

INPUT  TINE  STEP  OF  NODE  3 

4 

INPUT  DIST  OF  NODE  ALONG  ROUTE  4 

10 

INPUT  IDENTIFIER  OF  NODE  4 

3 

INPUT  TINE  STEP  OF  NODE  4 

5 

INPUT  NAME  OF  FILE  ROUTE  WILL  BE  SAVED  ON 

EVAL.ROUTE 

MASTER  MENU 

1  ACCESS  BRISTOL  RCI  PROGRAM 

2  ACCESS  VSAS2  RCI  PROGRAM 

3  OPTIMUM  ROUTE  PROGRAM 

4.  EVALUATION  OF  RCI  OVER  A  Gl  VEN  ROUTE 
5  FINISH 
INPUT  OPTION  1-5 


mastar 

WELCOME  TO  THE  BRISTOL  ROUTE  PACKAGE 

ENTER  ANY  NUMBER  TO  CONTINUE 

4 

MASTER  MENU 

1.  ACCESS  BRISTOL  RC I  PROGRAM 

2.  ACCESS  VSAS2  RCI  PROGRAM 

3.  OPTIMUM  ROUTE  PROGRAM 

4  EVALUATION  OF  RCI  OVER  A  GIVEN  ROUTE 
5.  FINISH 
INPUT  OPTION  1-5 

3 

***  MENU  SELECTION  FOR  GRID  SET-UP  *** 

1  CREATE  GRID 

2.  CHECK  GRID 

3.  SAVE  GRID 

4.  READ  EXISTING  GRID 

5.  EXIT  TO  ROUTE  SELECTION 

6.  QUIT  PROGRAM 


PLEASE  ENTER  SELECTION  1-6 


IT  IS  ASSUMED  THAT  THERE  ARE  DATA  FILES  EXISTING 
NAMED  data.n,  WHERE  n  IS  THE  ID  IN  THE  GRID 
DO  YOU  WISH  TO  RETURN  TO  MAIN  MENU?  y/n 

n 

PLEASE  INPUT  TIME  REQUIRED  (AS  HOURS  FROM  START) 

4 

PLEASE  DEFINE  MAX.  NUMBER  OF  FILES  TO  BE  ACCESSED 

4 

data.  1 
data.  2 
data.  3 
data.4 

INPUT  NAME  OF  GRID  FILE 

Input.grid 

ii  6 

JJ  6 

DEFINE  STATRTING  POSITION 

ENTER  COLUMN 

4 

4 


•  v  v  V 


/■L-’./'-.-v-'-a 

V 

“4 

•  1 


li 


W 

%  mj1  IL  %. 
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V.V 


ENTER  ROW 
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DEFINE  FINISH  POSITION 

ENTER  COLUMN 

5 

5 

ENTER  ROW 

5 

5 

PLEASE  ENTER  NAME  OF  OUTPUT  FILE 

OP. ROUTE 

MASTER  MENU 

1.  ACCESS  BRISTOL  RCI  PROGRAM 

2.  ACCESS  VSAS2  PCI  PROGRAM 

3.  OPTIMUM  ROUTE  PROGRAM 

4  EVALUATION  OF  RCI  OVER  A  GIVEN  ROUTE 

5  FINISH 


INPUT  OPTION  1-5 


maatar 

WELCOME  TO  THE  BRISTOL  ROUTE  PACKAGE 

**_*******#**♦-*-*******-*•* -*-**-*wt 

ENTER  ANY  NUMBER  TO  CONTINUE 

2 

MASTER  MENU 

1.  ACCESS  BRISTOL  RCI  PROGRAM 

2.  ACCESS  VSAS2  RCI  PROGRAM 

3.  OPTIMUM  ROUTE  PROGRAM 

4  EVALUATION  OF  RCI  OVER  A  GIVEN  ROUTE 
5.  FINISH 
INPUT  OPTION  1-5 

1 

MENU  SELECTION 
1.  CREATE  A  NEW  DATA  FILE 
2  CHANGE  AN  EXISTING  DATA  FILE 
3.  RUN  BRISTOL  SSS 
4  EXIT  WITHOUT  A  RUN 

2 

INPUT  NAME  OF  FILE  TO  BE  READ 

ylO.data 


-299- 

PLEA.SE  SELECT  THE  IDENTIFYING  VALUE  OF  THE  PARAMETER 
YOU  WISH  TO  CHANGE  FROM  THE  FOLLOWING  SERIES  OF  LISTS 

1.  METEOROLOGICAL  DATA 

2. PRECIPITATION  DATA 
3. SOILS  DATA 

4RUN  DEFINITION  DATA 

5.SAVE  FILE 

6.EXIT  TO  MAIN  MENU 

2 

CHOOSE  FROM  THE  FOLLOWING  PARAMETERS 

1.  NUMBER  OF  HOURS  OF  RAIN 

2.  ALL  PRECIPITATION  VALUES  • 

3.  ONE  PRECIPITATION  VALUE 

4.  RAIN  START  TIME 

5.  RAIN  STOP  TIME 

6.  EXIT  TO  MENU 

4 

INPUT  RAIN  START  TIME 
PRESENT  VALUE  IS  2 

6 

PLEASE  SELECT  THE  IDENTIFYING  VALUE  OF  THE  PARAMETER 
YOU  WISH  TO  CHANGE  FROM  THE  FOLLOWING  SERIES  OF  LISTS 


,V,  A  V.  .‘, 

■  M  •  H  *  m  *  W 


I  METEOROLOGICAL  DATA 
2, PRECIPITATION  DATA 
3.SOILS  DATA 


4RUN  DEFINITION  DATA 

5. SAVE  FILE 

6.  EX  IT  TO  MAIN  MENU 


5 

WHAT  NAME  DO  YOU  WISH  TO  SAVE  THIS  FILE  UNDER 

nawl.data 

INPUT  ANY  NUMBER  TO  CONTINUE 

1 

MENU  SELECTION 

1.  CREATE  A  NEW  DATA  FILE 

2.  CHANGE  AN  EXISTING  DATA  FILE 

3.  RUN  BRISTOL  SSS 

4  EXIT  WITHOUT  A  RUN 

3 

WHICH  DATA  FILE  IS  TO  RUN? 

nawl.data 

OUTPUT  FOR  THIS  RUN  WILL  BE  IN  data.  1 

ALL  OUTPUT  FILES  ARE  data.n,  WHERE  n  MAY  BE  CHANGED 

DO  YOU  WISH  TO  CHANGE  n?  y  or  n 

y 

INPUT  VALUE  FOR  n  I  -30 

6 


DO  YOU  WANT  TO  MAKE  ANOTHER  RUN?  y  or  n 


MASTER  MENU 

1.  ACCESS  BRISTOL  RCI  PROGRAM 

2.  ACCESS  VSAS2  RCI  PROGRAM 

3  OPTIMUM  ROUTE  PROGRAM 

4  EVALUATION  OF  RCI  OVER  A  GIVEN  ROUTE 

5  FINISH 
INPUT  OPTION  1-5 
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9.6  Edit.  One  VSAS2  input  File  ana  Run 

MASTER  MENU 

1.  ACCESS  BRISTOL  RCI  PROGRAM 

2.  ACCESS  VSAS2  PCI  PROGRAM 
3  OPTIMUM  ROUTE  PROGRAM 

4.  EVALUATION  OF  RCI  OVER  A  GIVEN  ROUTE 

5.  FINISH 
INPUT  OPTION  1-5 

2 

MENU  SELECTION 

1.  CREATE  A  NEW  DATA  FILE 

2.  CHANGE  AN  EXISTING  DATA  FILE 

3.  RUN  VSA52 

4.  EXIT  WITHOUT  A  RUN 


mmm 


2 

INPUT  NAME  OF  SEGMENT  FILE  TO  BE  READ 

s«g.2 

INPUT  STORM  FILE  NAME 

storm.S 

INPUT  INITIAL  MOISTURE  FILE  NAME 

1mc.2 

INPUT  SOIL  DESCRIPTION  FILE  NAME 

Cl. 2 

PLEASE  SELECT  THE  IDENTIFYING  VALUE  OF  THE  PARAMETERS 
YOU  WISH  TO  CHANGE  FROM  THE  FOLLOWING  SERIES  OF  LISTS 


— — rantgwginniproi  uv  uv  wm  m  w*v*  »*Yxvwv*y  wwv 
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1,  METEOROLOGICAL  DATA 

2. PRECIPITATI0N  DATA 
3.50IL5  DATA 

4.RUN  DEFINITION  DATA 

5.5AVE  FILE 

6.EXIT  TO  MAIN  MENU 

1 

CHOOSE  FROM  THE  FOLLOWING  PARAMETERS 

1.  PRECIPITATION  VALUES 

2. C0ARSE  ITERATION  TIME  INTERVAL 
3  FINE  ITERATION  TIME  INTERVAL 
4.0PTI0N  FOR  PRINT  OF  SEGMENT  GEOMETRY 

5.0PTI0N  FOR  CALC.  OF  100%' AND  75%  SATURATED  AREAS 
6.ST0NE  CONTENT  OF  EACH  LAYER 
7.SEGMENT  NUMBER 
8. INCREMENTS  ON  SLOPE 

9. NUMBER  OF  SEGMENTS 

10. NUMBER  OF  SOIL  LAYERS 
11. SEGMENT  DIMENSIONS 
I2.R0UTING  DELAY 

1 3.SEGMENT  DISTANCES 
I4***EXIT*** 

1 

CHOOSE  FROM  THE  FOLLOWING  PARAMETERS 

1.  NUMBERS  OF  HOURS  OF  RAIN 

2. ALL  PRECIPITATION  VALUES 
3.0NE  PRECIPITATION  VALUE 
4.EXIT  TO  MENU 


3 
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WHICH  HOUR  OF  PRECIPITATION  DO  YOU  WISH  TO  ALTER" 


10 


INPUT  PRECIPITATION  (m)  FOR  HOUR  10 
PRESENT  VALUE  IS  0. 

0.01 

CHOOSE  FROM  THE  FOLLOWING  PARAMETERS 
I  NUMBERS  OF  HOURS  OF  RAIN 
2. ALL  PRECIPITATION  VALUES 
3.0NE  PRECIPITATION  VALUE 
4.EXIT  TO  MENU 


WHICH  HOUR  OF  PRECIPITATION  DO  YOU  WISH  TO  ALTER? 


11 


INPUT  PRECIPITATION  (m)  FOR  HOUR  11 
PRESENT  VALUE  IS  0. 

0.02 

CHOOSE  FROM  THE  FOLLOWING  PARAMETERS 

1.  NUMBERS  OF  HOURS  OF  RAIN 

2.  ALL  PRECIPITATION  VALUES 
3.0NE  PRECIPITATION  VALUE 
4.  EX  IT  TO  MENU 


PLEASE  SELECT  THE  IDENTIFYING  VALUE  OF  THE  PARAMETERS 
YOU  WISH  TO  CHANGE  FROM  THE  FOLLOWING  SERIES  OF  LISTS 


mm 


:-a 


1,  METEOROLOGICAL  DATA 

2. PRECI PIT ATION  DATA 
3.SOIL5  DATA 

4.RUN  DEFINITION  DATA 

5.5AVE  FILE 

6.EXIT  TO  MAIN  MENU 

5 

INPUT  NAME  OF  NEW  SEGMENT  FILE 

••g.3 

FILE  ALREADY  EXISTS  -  DO  YOU  WISH  TO  OVERWRITE? 

y  or  n 

y 

INPUT  NAME  OF  NEW  STORM  FILE 

storm. 4 

INPUT  NAME  OF  NEW  INITIAL  MOISTURE  FILE 

1mc.3 

INPUT  NAME  OF  NEW  SOIL  DESCRIPTION  FILE 

Cl. 4 

INPUT  ANY  NUMBER  TO  CONTINUE 

3 

MENU  SELECTION 

1.  CREATE  A  NEW  DATA  FILE 

2.  CHANGE  AN  EXISTING  DATA  FILE 

3.  RUN  VSAS2 

4.  EXIT  WITHOUT  A  RUN 
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3 

INPUT  NAME  OF  SEGMENT  FILE 

aag.3 

INPUT  NAME  OF  STORM  FILE 

storm.4 

INPUT  NAME  OF  INITIAL  MOISTURE  FILE 

lmc.3 

INPUT  NAME  OF  SOIL  DESCRIPTION  FILE 

Cl. 4 

PLEASE  INPUT  NAME  OF  OUTPUT  FILE 

data.4 

FILE  ALREADY  EXISTS  -  DO  YOU  WISH  TO  OVERWRITE? 

y  or  n 


n 

PLEASE  INPUT  NAME  OF  OUTPUT  FILE 

data.6 

MASTER  MENU 

1.  ACCESS  BRISTOL  RCI  PROGRAM 

2.  ACCESS  VSAS2  RCI  PROGRAM 

3.  OPTIMUM  ROUTE  PROGRAM 

4.  EVALUATION  OF  RCI  OVER  A  GIVEN  ROUTE 

5.  FINISH 
INPUT  OPTION  1-5 

3 


%  {*back  to  system  level*) 


masUr 

WELCOME  TO  THE  BRISTOL  ROUTE  PACKAGE 

*»WW**tt***»»tt**^*»****^*****^***»*-»-»-»-*-*-***-»»-tt-*-*-»-« 

ENTER  ANY  NUMBER  TO  CONTINUE 

4 

MASTER  MENU 

1.  ACCESS  BRISTOL  RCI  PROGRAM 

2.  ACCESS  VSAS2  RCI  PROGRAM 

3.  OPTIMUM  ROUTE  PROGRAM 

4  EVALUATION  OF  RCI  OVER  A  GIVEN  ROUTE 
5.  FINISH 
INPUT  OPTION  1-5 

3 

***  MENU  SELECTION  FOR  GRID  SET-UP  *** 

1.  CREATE  GRID 

2.  CHECK  GRID 

3.  SAVE  GRID 

4.  READ  EXISTING  GRID 

5.  EXIT  TO  ROUTE  SELECTION 

6.  QUIT  PROGRAM 

PLEASE  ENTER  SELECTION  1-6 

1 


HOW  MANY  COLUMNS? 


HOW  MANY  ROWS? 


FOR  ROW 

FOR  ROW 

FOR  ROW 

FOR  ROW 

> 

I 

FOR  ROW 

> 

I 

FOR  ROW 

i 

i 

FOR  ROW 

FOR  ROW 

FOR  ROW 

j 

FOR  ROW 

i 

> 

FOR  ROW 

l 


1  COLUMN 

I  COLUMN 

1  COLUMN 

I  COLUMN 

I  COLUMN 

1  COLUMN 

2  COLUMN 

2  COLUMN 

2  COLUMN 

2  COLUMN 

2  COLUMN 


I  ENTER  ID 

2  ENTER  ID 

3  ENTER  ID 

4  ENTER  ID 

5  ENTER  ID 

6  ENTER  ID 

I  ENTER  ID 

1  ENTER  ID 

2  ENTER  ID 

3  ENTER  ID 

4  ENTER  ID 


FOR  ROW  2  COLUMN  5  ENTER  ID 


FOR  ROW  2  COLUMN  6  ENTER  ID 


2 

FOR  ROW  3  COLUMN 

1 

FOR  ROW  3  COLUMN 

2 

FOR  ROW  3  COLUMN 

1 

FOR  ROW  3  COLUMN 

1 

FOR  ROW  3  COLUMN 

3 

FOR  ROW  3  COLUMN 

3 

FOR  ROW  4  COLUMN 

4 

FOR  ROW  4  COLUMN 

6 

FOR  ROW  4  COLUMN 

3 

FOR  ROW  4  COLUMN 

4 

FOR  ROW'  4  COLUMN 

4 

FOR  ROW  4  COLUMN 


1  ENTER  ID 

2  ENTER  ID 

3  ENTER  ID 

4  ENTER  ID 

5  ENTER  ID 

6  ENTER  ID 

I  ENTER  ID 

2  ENTER  ID 

3  ENTER  ID 

4  ENTER  ID 

5  ENTER  ID 

6  ENTER  ID 


FOR  ROW  5  COLUMN  I  ENTER  ID 

2 

FOR  ROW  5  COLUMN  2  ENTER  ID 

3 

FOR  ROW  5  COLUMN  3  ENTER  ID 

3 

FOR  ROW  5  COLUMN  4  ENTER  ID 

3 

FOR  ROW  5  COLUMN  5  ENTER  ID 

2 

FOR  ROW  5  COLUMN  6  ENTER  ID 

3 

FOR  ROW  6  COLUMN  1  ENTER  ID 

1 

FOR  ROW  6  COLUMN  2  ENTER  ID 

1 

FOR  ROW  6  COLUMN  3  ENTER  ID 

3 

FOR  ROW  6  COLUMN  4  ENTER  ID 

2 

FOR  ROW  6  COLUMN  5  ENTER  ID 

3 

FOR  ROW  'd  COLUMN  6  ENTER  ID 


COLUMN 

12  3  4  5  6 

ROW 

1  1113  3  2 

2  12  5  4  3  2 

3  12  113  3 

4  4  6  5  4  4  3 

5  2  3  3  3  2  3 

6  113  2  3  3 

***  MENU  SELECTION  FOR  GRID  SET-UP  *** 

1.  CREATE  GRID 

2.  CHECK  GRID 

3.  SAVE  GRID 

4.  READ  EXISTING  GRID 

5.  EXIT  TO  ROUTE  SELECTION 

6.  QUIT  PROGRAM 

PLEASE  ENTER  SELECTION  I  -6 

\ 

COLUMN 

12  3  4  5  6 

ROW 

1  1113  3  2 

2  1.2  5  4  3  2 

3  12  113  3 

4  4  6  5  4  4  3 

5  2  3  3  3  2  3 

6  113  2  3  3 


DO  YOU  WISH  TO  CHANGE  ANY  GRID  VALUE?  V  or  N 

y 

ENTER  ROW  NUMBER 

3 

ENTER  COLUMN  NUMBER 

2 

THE  VALUE  OF  THIS  CELL  IS  2 
PLEASE  ENTER  NEW  IDENTIFYING  VALUE 

4 

THE  NEW  GRID  IS  AS  FOLLOWS 

COLUMN 

I  2  3  4  5  6 

ROW 

1  1113  3  2 

2  12  5  4  3  2 

3  14  113  3 

4  4  6  5  4  4  3 

5  2  3  3  3  2  3 

6  113  2  3  3 

***  MENU  SELECTION  FOR  GRID  SET-UP  *** 

1.  CREATE  GRID 

2.  CHECK- GRID 

3.  SAVE  GRID 

4.  READ  EXISTING  GRID 

5.  EXIT  TO  ROUTE  SELECTION 

6.  QUIT  PROGRAM 

PLEASE  ENTER  SELECTION  1  -6 


DO  YOU  WISH  TO  SAVE  THIS  GRID? 

y 

PLEASE  TYPE  IN  NAME  OF  FILE  THAT  GRID  IS  TO 
BE  SAVED  IN 

Input.gr1d2 

***  MENU  SELECTION  FOR  GRID  SET-UP  *** 

1.  CREATE  GRID 

2.  CHECK  GRID 

3.  SAVE  GRID 

4.  READ  EXISTING  GRID 

5.  EXIT  TO  ROUTE  SELECTION 

6.  QUIT  PROGRAM 

PLEASE  ENTER  SELECTION  1-6 

6 

MASTER  MENU 

1.  ACCESS  BRISTOL  RCI  PROGRAM 

2.  ACCESS  VSAS2  RCI  PROGRAM 

3.  OPTIMUM  ROUTE  PROGRAM 

4.  EVALUATION  OF  RCI  OVER  A  GIVEN  ROUTE 

5.  FINISH 
INPUT  OPTION  1-5 


%  (*back  to  system  level*) 


mastar 

**************************************************** 

WELCOME  TO  THE  BRISTOL  ROUTE  PACKAGE 
**** *******************************^ 

ENTER  ANY  NUMBER  TO  CONTINUE 

4 

MASTER  MENU 

1.  ACCESS  BRISTOL  RC I  PROGRAM 

2.  ACCESS  VSAS2  RCI  PROGRAM 

3.  OPTIMUM  ROUTE  PROGRAM 

4.  EVALUATION  OF  RCI  OVER  A  GIVEN  ROUTE 

5.  FINISH 
INPUT  OPTION  1-5 

4 

PLEASE  MAKE  CHOICE  OF 

1  .CREATE  ROUTE 
2.READ  ROUTE 

1 

INPUT  NUMBER  OF  NODES  ON  ROUTE 

4 

INPUT  D I  ST  OF  NODE  ALONG  ROUTE  I 

2 

INPUT  IDENTIFIER  OF  NODE  I 

1 


INPUT  TIME  STEP  OF  NODE  I 


INPUT  DIST  OF  NODE  ALONG  ROUTE  2 

2 

INPUT  IDENTIFIER  OF  NODE  2 

4 

INPUT  TIME  STEP  OF  NODE  2 

3 

INPUT  DIST  OF  NODE  ALONG  ROUTE  3 

2 

INPUT  IDENTIFIER  OF  NODE  3 

2 

INPUT  TIME  STEP  OF  NODE  3 

4 

INPUT  DIST  OF  NODE  ALONG  ROUTE  4 

10 

INPUT  IDENTIFIER  OF  NODE  4 

3 

INPUT  TIME  STEP  OF  NODE  4 

5 

INPUT  NAME  OF  FILE  ROUTE  WILL  BE  SAVED  ON 

EVAL.R0UTE2 

MASTER  MENU 

1.  ACCESS  BRISTOL  RC I  PROGRAM 
2  ACCESS  VSAS2  RCI  PROGRAM 

3.  OPTIMUM  ROUTE  PROGRAM 

4.  EVALUATION  OF  RCI  OVER  A  GIVEN  ROUTE 

5.  FINISH 
INPUT  OPTION  1-5 


masttr 


WELCOME  TO  THE  BRISTOL  ROUTE  PACKAGE 

ENTER  ANY  NUMBER  TO  CONTINUE 

4 

MASTER  MENU 

1.  ACCESS  BRISTOL  RC I  PROGRAM 

2.  ACCESS  VSAS2  RCI  PROGRAM 

3.  OPTIMUM  ROUTE  PROGRAM 

4.  EVALUATION  OF  RCI  OVER  A  GIVEN  ROUTE 

5.  FINISH 
INPUT  OPTION  1-5 

3 

***  MENU  SELECTION  FOR  GRID  SET-UP  *** 

1.  CREATE  GRID 

2.  CHECK  GRID 

3.  SAVE  GRID 

4  READ  EXISTING  GRID 
5.  EXIT  TO  ROUTE  SELECTION 
6  QUIT  PROGRAM 

PLEASE  ENTER  SELECTION  1-6 
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IT  15  ASSUMED  THAT  THERE  ARE  DATA  FILES  EXISTING 
NAMED  data.n,  WHERE  n  IS  THE  ID  IN  THE  GRID 
DO  YOU  WISH  TO  RETURN  TO  MAIN  MENU?  y/n 


PLEASE  INPUT  TIME  REQUIRED  (AS  HOURS  FROM  START) 


PLEASE  DEFINE  MAX.  NUMBER  OF  FILES  TO  BE  ACCESSED 


data.  1 
data.2 
data.  3 
data.4 
data.5 
data.6 

INPUT  NAME  OF  GRID  FILE 

1nput.gr1d2 

ii  6 

jj  6 


DEFINE  STATRTING  POSITION 


ENTER  COLUMN 


ENTER  ROW 


9 


DEFINE  FINISH  POSITION 


ENTER  COLUMN 

5 

5 

ENTER  ROW 

5 

5 

PLEASE  ENTER  NAME  OF  OUTPUT  FILE 

0P.R0UTE2 

MASTER  MENU 

1.  ACCESS  BRISTOL  RC I  PROGRAM 
2  ACCESS  VSAS2  RCI  PROGRAM 

3.  OPTIMUM  ROUTE  PROGRAM 

4.  EVALUATION  OF  RCI  OVER  A  GIVEN  ROUTE 

5.  FINISH 
INPUT  OPTION  1-5 


Throughout  the  development  of  the  BSSS  and  route  management  schemes, 
and  the  adaptation  of  the  VSAS2,  the  strategy  described  in  section  1.4 
has  been  utilized.  The  resulting  'Bristol  Off-Road  Traff icabi lity  Scheme' 
(BORTS)  can  be  considered  as  a  first  attempt  to  fulfil  the  requirements 
set  out  in  section  1.2  and  hence  provide  a  strong  framework  for  further 
development. 

The  simulation  of  the  physical  environmental  processes  and  the  modelling 
of  the  complex  world  through  simplified  representation  has  introduced 
restrictions  and  limitations  in  the  application  of  the  scheme.  These 
restrictions  and  limitations  have  been  outlined  in  section  8.  The  further 
development  of  the  scheme  may  or  may  not  reduce  the  effect  of  these 
restrictions  and  limitations,  but  it  is  more  likely  that  they  will  be 
replaced  by  a  different  set.  With  this  view  in  mind  the  developer  must  be 
careful  not  to  'improve'  the  scheme  at  the  expense  of  a  requirement.  This 
is  the  stage  where  knowledge  of  the  subject  area  is  important  so  that  a 
qualitative  assessment  of  the  requirements  and  their  relative  comparative 
importance  can  be  made. 

After  examination  of  the  BORTS,  it  will  be  apparent  that  there  are  several 
areas  where  there  is  scope  for  improvement'  and  development.  Before 
specifying  these  areas  it  is  important  to  assess  the  first  generation 
scheme  so  that  a  detailed  prescription  for  future  development  can  be 
written.  It  is  also  important  to  assess  the  performance  of  the  BSSS, 
VSAS2  and  the  5MSP  under  different  conditions  so  that  a  guide  to  when  the 
use  of  one  scheme  is  more  appropriate  than  another. 


The  following  sections  attempts  to  indicate  the  different  computational 
requirements  of  the  B555  and  the  VSA52,  and  the  different  features  of 
the  output  from  the  BSSS,  V5AS2  and  the  SMSP  schemes  and  hence  make 
some  recommendations  for  application, 


The  computational  requirements  of  the  BSSS  and  the  VSAS2  schemes  are 
very  different.  Table  10.1  shows  some  results  of  computer  use  versus 
iteration  time  interval  and  duration  of  run  for  the  V5A52  and  BSSS  on  a 
systlme  8750  with  a  UNIX  operating  system.  The  results  were  obtained 
using  the  'time'  command  while  calling  ’master’,  i.e. 

time  masttr 

The  appropriate  scheme  was  then  run  according  to  sections  9. 1  and  9.3 
for  the  BSSS  and  the  VSA52  respectively.  The  times  given  in  table  1 0. 1 
are  in  seconds  and  the  iteration  specifications  for  each  scheme  are  given 
in  the  manner  required.  That  is,  the  BSSS  requires  the  iteration  time  step 
in  seconds,  whereas,  the  VSAS2  requires  a  coarse  iteration  specification 
(krep)  which  refers  to  the  number  of  times  within  an  hour  that 
calculations  are  made,  i.e.  when  krep  =  4,  the  variables  are  all  recalculated 
every  15  minutes.  The  fine  scale  iteration  (lrep),  used  when  near 
saturation  occurs,  refers  to  the  number  of  times  within  the  coarse  scale 
iteration  that  recalculation  of  the  variables  takes  place,  i.e ,  when  krep  = 
4  and  lrep  =  3,  the  iteration  interval  for  areas  of  near  saturation  will  be  5 
minutes.  It  is  evident  from  the  fact  that  the  iteration  interval  for  the 


VSAS2  scheme  can  vary  both  temporally  and  spatially  that  the  times  taken 
to  run  the  scheme  will  vary  according  to  initial  moisture  content,  soil 
hydrological  characteristics,  topography  and  the  rain  storm 
characteristics.  The  results  given  in  table  10.1  represent  an  area  of 
moderate  slope  (approximately  7  degrees)  which  starts  off  with  no  area 
saturated  but  where  the  lower  quarter  of  the  slope  becomes  nearly 
saturated  between  hours  15  and  25, 

Although  the  results  shown  in  table  10.1  cannot  be  viewed  as  absolute, 
they  do  provide  some  guide  as  to  the  relative  computer  usage  of  the  two 
schemes.  As  expected  with  both  schemes,  the  time  taken  to  execute  the 
commands  (TIMED  increases  as  the  interval  between  calculations 
decreases.  TIME  1  also  increases  with  an  increase  in  run  time. 

The  time  spent  on  the  system,  including  the  time  taken  searching  for  files 
(TIME2)  Is  small  in  comparison  to  TIME  1,  but  there  is  a  significant 
difference  between  the  V5AS2  and  the  B555.  The  VSA52  requires  much 
more  TIME1  in  comparison  to  the  B5S5.  This  might  be  accounted  for  by  the 
increased  number  of  input  files  ( four  for  the  V5A52,  whereas  only  one  for 
the  B555),  and  the  extra  output  still  retained  for  the  V5AS2  for 
development  purposes. 

The  information  given  in  table  1 0. 1  indicates  the  significant  difference 
in  TIME  I  values  between  the  schemes.  Consider  a  duration  of  eighty  hours 
for  each  scheme  and  an  iteration  scheme  of  5  minutes  (300  seconds)  or 
where  krep  =  4  and  lrep  =  3.  Although  the  V5AS2  scheme  is  not  operating 
at  this  fine  a  scale  for  the  whole  duration  or  for  the  whole  segment  area, 
the  TIME!  value  of  233  seconds  as  compared  to  the  BSS5  TIME  1  value  of  45 
seconds  is  approximately  five  times  greater.  This  indicates  a  potential 


restriction  for  the  use  of  the  VSAS2  as  compared  to  the  BSSS.  The 
question  which  must  also  be  taken  Into  consideration  is  "at  what  iteration 
time  intervals  do  both  schemes  become  potentially  unstable?"  This  will 
be  an  important  aspect  of  running  the  two  schemes.  For  the  purposes  of 
this  analysis  the  information  given  in  table  10.1  allows  us  to  observe  the 
manner  in  which  the  computing  time  is  influenced  by  iteration  time 
intervals  and  so  set  out  further  guidelines  (section  10.4)  for  the 
utilization  of  the  VSAS2  and  BSSS  within  the  BORTS. 


Initial  runs  of  the  BSSS  have  been  made  for  comparison  with  runs  of  the 
5MSP.  Figure  10.1  shows  the  nature  Inwhich  the  BSSS  and  the  SMSP 
systems  differ  in  predictive  resolution.  That  is,  the  SMSP  is  only  able  to 
predict  a  daily  RCI  value  and  so  appears  as  a  series  of  well  defined  steps. 
Alternatively,  the  BSSS  shows  the  continuous  nature  of  the  processes 
affecting  the  soil  surface  layers,  f.e.  the  processes  of  drainage, 
evaporation  and  rainfall  in  a  series  of  much  smaller  time  steps  and  hence 
approximating  this  continuous  nature  much  closer  than  the  SMSP. 

in  section  10.2  the  computational  requirements  of  the  VSAS2  and  the 
BSSS  were  discussed.  Allowing  for  the  preparation  time  required  for  each 
of  the  three  scheme,  i.e  BSSS,  V5AS2  and  SMSP,  it  is  the  actual 
computational  requirements  that  will  be  considered.  The  computational 
requirements  of  the  SMSP  are  not  available  but  are  being  assumed  to 
almost  negligible  as  the  operation  of  the  SMSP  Is  that  of  mainly  look-up 
tables.  The  preparation  time  for  each  scheme  will  vary  according  to 
Information  available,  complexity  of  the  situation  and  the  familiarity  and 
expertise  of  the  user. 


The  above  sections  have  shown  that  there  are  three  potential  schemes  for 
the  prediction  of  RCI.  The  SM5P  is  the  existing  scheme  with  the  BSS5  and 
the  V5AS2  as  the  new  schemes.  The  three  schemes  have  their  own  set  of 
limitations  and  advantages  over  the  others  and  it  is  important  to 
formulate  some  framework  whereby  the  user  may  assess  which  scheme 
would  be  the  most  appropriate  to  use  under  different  circumstances. 

The  choice  of  model  will  mainly  be  dependent  on  the  following  factors:- 

(a)  computational  time  available, 

(b)  storm  characteristics, 

(c)  initial  moisture  content, 

(d)  soil  type, 

(e)  time  of  day  and  year, 

(f)  topography, 

(g)  spatial  resolution,  and 

(h)  temporal  resolution. 

The  relative  importance  of  the  computational  restrictions  is  going  to  be  a 
function  of  the  machine,  its  load  and  any  time  restrictions  imposed  by  the 
user.  Spatial  and  temporal  resolution  will  also  affect  the  choice  of 
scheme,  for  instance,  if  information  is  required  for  an  area  over  the  next 
six  hours  the  SMSP  will  be  unable  to  provide  information  at  this 
resolution.  On  the  other  hand  if  information  about  conditions  three  days 
ahead  is  required  on  a  daily  basis  the  SMSP  would  be  the  most  appropriate 
scheme  to  use,  AS  shown  in  figure  10.2,  it  might  be  desirable  to  run  the 
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SM5P  and  the  BS5S  or  V5A52  in  tandem,  i.e.,  run  the  SMSP  for  a  number  of 
days  to  determine  the  approximate  initial  moisture  content  and  then  run 
either  the  B5S5  or  the  VSAS2  for  the  shorter  time  period  where  greater 
temporal  resolution  is  required. 

The  manner  inwhich  the  storm  characteristics,  soil  type  and  initial 
moisture  content  might  affect  the  choice  is  shown  in  figure  10.3.  Runs 
from  the  SMSP  with  Initial  moisture  contents  of  very  wet  and  very  dry 
have  been  excluded  from  the  choice  procedure  as  the  results  indicated 
some  peculiarities  in  the  model,  i.e  very  wet  conditions  never  recovered 
and  very  dry  conditions  were  almost  unaffected  by  even  heavy  rain 
conditions. 

The  development  of  a  guide  to  model  choice  as  shown  in  figure  10.3  is 
currently  under  way  but  it  should  be  remembered  that  all  the  factors 
listed  above  will  be  relevant  in  the  choice  of  the  most  appropriate  model. 
The  weighting'  of  these  factors  must  at  present  be  carried  out  by  the  user 
and  although  having  a  framework  such  as  figure  10.3  is  very  helpful, 
especially  for  the  inexperienced  user,  some  experience  in  using  the 
schemes  will  enable  an  easier  choice  to  be  made. 

Use  of  the  different  schemes  for  various  conditions  over  an  area  would 
enable  the  set-up  of  a  databank  providing  a  scenario  of  results  as  a  design 
table.  The  various  "keys"  for  the  data  bank  would  of  course  be  the  factors 
a-h  listed  above.  Once  set  up,  this  would  require  less  expertise  to  use, 
fewer  decisions  and  would  for  areas  of  interest,  be  a  considerable  time 
and  hence  money  saver. 


Through  examination  of  the  limitations  and  restrictions  of  the  major 

components  of  the  BSS5  and  its  preliminary  comparison  with  the  SMSP 

model  it  is  possible  to  set  out  possible  areas  for  further  development:- 

(a)  Inclusion  of  evaporation  within  the  VSA52. 

(b)  Inclusion  of  the  effect  of  vegetation  on  the  hydrology  in  both  the  B55S 
and  VSAS2  schemes. 

(c)  Development  of  ‘results  data  bank'  providing  a  scenario  of  results  as  a 
design  tool. 

(d)  Inclusion  of  automatic  calculation  of  speed  from  RCI  via  DRI VEB  model 
in  the  route  management  scheme. 

(e)  Assessment  of  a  three  dimensional  soil  water  scheme  for  modelling 
small  specific  areas. 

(f)  Further  development  of  topographic  influence  on  initial  moisture 
contents,  hydrological  and  soil  characteristics  as  an  automatic 
look-up  procedure. 

<g>  Application  to  plant  growth  problems,  agricultural  'workability'  of  the 
land  etc. 

(h)  Application  to  construction  trails  in  terms  of  traff icability  and  slope 
stability. 

(1)  It  is  realised  that  there  will  be  a  variety  of  situations  where  the 
existing  SMSP  model  will  be  more  appropriate  than  either  the  BSSS  or 
the  VSAS2  scheme.  On  the  other  hand  there  are  many  situations  when 
the  BSSS  or  the  V5AS2  will  be  more  appropriate.  The  use  of  the 
schemes  in  tandem,  as  discussed  in  section  10.3,  could  provide  a 
very  powerful  modelling  tool.  This  type  of  utility  guide  requires 
immediate  specification. 
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The  following  section  contains  a  list  of  the  parameters  and  variables  used 
in  the  BSSS.  It  is  arranged  in  the  alphabetical  order  of  the  variable  name. 
Each  name  is  accompanied  by  the  common  block  they  may  be  in,  the 
subroutines  they  are  used  in  and  a  brief  description  of  their  function. 


Variable  name:  a  I 
Subroutines:  'bcone' 

Description:  intermediate  calculation 


Variable  name:  a2 
Subroutines:  'bcone' 

Description:  intermediate  calculation 

Variable  name:  a3 
Subroutines:  'bcone' 

Description:  intermediate  calculation 

Variable  name:  aal 
Common  blocks:  'spec.bthree' 
Subroutines:  'bcone',  'bread' 
Description:  cone  length 


«\ 
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Variable  name:  aax(j.i) 

Common  blocks:  'spec.bman' 

Subroutines:  'bcntl',  bsoilbd' 

Description:  8  values  calculated  in  'bsoilbd'  for  use  in  the  10  point 
8  -f  curve 

Variable  name:  abp(  1 1 ) 

Common  blocks:  'spec.bnow',  'spec.bdr 
Subroutines:  ’bschars' 

Description:  mean  bubbling  pressure  (air  entry  matric  potential)  for  soils 
U  1 

Variable  name:  acp(1 1) 

Common  blocks:  ‘spec.bnow’,  ‘spec.bdl’ 

Subroutines:  ’bschars' 

Description:  mean  of  clay  content  percentage  distribution  for  soil  types 
I...1 1 

Variable  name,  af 
Common  blocks:  ’spec.btwo’ 

Subroutines:  'binfil',  'bmenu',  'bread',  'bview' 

Description:  iteration  time  interval  (seconds) 

Variable  name:  alb 
Common  blocks:  'spec.bthree' 

Subroutines:  'bevapor',  'bmenu',  'bread',  'bview' 

Description:  albedo  of  surface 


Variable  name:  alpha 
Common  blocks:  'spec.bthree' 

Subroutines:  'bcone',  'bread' 

Description:  cone  tip  half  angle 

Variable  name:  alphi 
Subroutines:  'bevapor' 

Description;  thermal  diffusivity 

Variable  name:  air 
Common  blocks:  'spec.bthree' 

Subroutines:  'binfil',  'bmenu',  'bread',  ‘bview’ 

Description:  rain  start  time 

Variable  name:  am(  1 1 ) 

Common  blocks:  'spec.bnow',  'spec.bdl' 

Subroutines:  bschars' 

Description:  mean  of  mineral  bulk  density  distribution  of  soil  types  I..1 1 

Variable  name:  amr 
Common  blocks:  'spec.bthree' 

Subroutines:  'binfil',  'bmenu',  ’bread’,  ’bview’ 

Description:  rain  stop  time 

Variable  name:  ans 

Description:  character  variable  referring  to  an  answer  from  the  user 
to  a  system  prompt  (y  or  n) 


Variable  name:  answ 

Description:  character  variable  set  to  y  or  ’n'  by  the  user  in  response  to  a 
system  query 

Variable  name:  aos 

Common  blocks:  'spec.bgrncT 

Subroutines:  'bmenu',  'bread',  'bschars',  'bview' 

Description:  topographic  index 

Variable  name:  argl 
Subroutines:  'bevapor' 

Description:  energy  contributed  by  atmospheric  1R 

Variable  name:  asatcon(  1 ! ) 

Common  blocks:  'spec.bnow',  ’spec.bdata’ 

Subroutines:  'bschars' 

Description:  mean  saturated  hydraulic  conductivity  for  soils  I ...11 

Variable  name:  asp(  1 1 ) 

Common  blocks:  'spec.bnow',  'spec.bdl' 

Subroutines:  ’bschars' 

Description:  mean  of  sand  content  percentage  distribution  of  soil  types 
1..1 1 

Variable  n^me:  asrd  1) 

Common  blocks:  'spec.bnow',  'spec.bdl' 

Subroutines:  'bschars' 

Description:  mean  saturation  for  soils  1..1 1 


Variable  name:  ax(j,i) 

Common  blocks:  ’spec.bman' 

Subroutines:  ‘bcntV,  'bsmcurv' 

Description:  8  values  In  the  10  point  0  -y  curve  passed  to  'bsmcurv' 

Variable  name:  b 
Subroutines:  'bevapor' 

Description:  heat  conductivity  of  surface 

Variable  name:  bl 
Subroutines:  'bcone' 

Description:  intermediate  calculation 

Variable  name:  b2 
Subroutines:  'bcone' 

Description:  intermediate  calculation 

Variable  name.  b3 
Subroutines,  'bcone' 

Description:  intermediate  calculation 

Variable  name:  b4 
Subroutines:  'bcone' 

Description:  intermediate  calculation 

Variable  name:  bbb(J,i) 

Common  blocks:  'spec.bfour' 

Subroutines:  'baiter',  bevapor' 

Description:  base  line  for  observations 


variable  name:  bdm(  1 1 ) 

Common  blocks:  'spec.bgrnd' 

Subroutines:  'bschars',  'bsoilbd' 

Description:  mineral  bulk  of  each  soil  layer 

Variable  name:  bf11e(30) 

Common  blocks:  'spec.bgrnd1 
Subroutines:  'bcntr,  binfil’ 

Description:  character  array  to  keep  the  name  of  the  output  files  in  a 
logical  order,  but  the  name  of  the  output  file  'data.n' 
might  not  have  the  same  numeric  identifier  -  e  g  miss(  1 ) 
may  be  'data.4'  and  miss(2)  may  be  'data.5'  when  files 
‘data.r  -  'data.3'  have  already  been  calculated 

Variable  name:  bots 
Subroutines:  'bhydcon' 

Description:  lower  point  on  20  point  0-k  curve  that  observation  is  next  to 

Variable  name:  bp(j) 

Common  blocks:  'spec.bgrnd' 

Subroutines:  'bcntr,  'bschars' 

Description:  air  entry  matric  potential  (bubbling  pressure) 

Variable  name:  bprm 
Subroutine's:  'bevapor' 

Description:  heat  conductivity  of  bottom  boundary  layer 

variable  name:  bsatcon 
Subroutines:  'bschars' 

Description:  intermediate  calulation 


Variable  name:  bterm 
Subroutines:  'bevapor' 

Description:  energy  contributed  by  insolation  after  adjustment  using 
surface  absorptivity 


Variable  name:  c 
Common  blocks:  'spec.bthree' 

Subroutines:  'bci',  'bmenu',  'bread',  'bview* 

Description:  soil  cohesion 

Variable  name:  ci 
Subroutines:  ’bci" 

Description:  cone  index 

Variable  name:  cp(  1 1 ) 

Common  blocks:  'spec.bgrnd' 

Subroutines:  'bschars',  bsoilbd’ 

Description:  clay  content  percentage  for  each  soil  layer 


Variable  name:  d 
Common  blocks:  spec.bthree' 
Subroutines:  bcone’,  bread' 
Description:  cone  diameter 


Variable  name:  dl 
Subroutines:  ‘bcone’ 

Description:  intermediate  calculation 

Variable  name:  d2 
Subroutines:  'bcone' 

Description:  intermediate  calculation 

Variable  name:  d3 
Subroutines:  'bcone' 

Description:  intermediate  calculation 

Variable  name:  day 
Subroutines  ’spec.btwo’ 

Subroutines:  'bcntl',  'bevapor',  ’binfil' 
Description:  julian  day 

Variable  name:  decl 
Subroutines:  'bevapor' 

Description:  solar  declination  angle 

Variable  name:  delt 
Subroutines:  'bevapor' 

Description:  time  step  in  hours 

Variable  name:  dterm 
Subroutines:  'bevapor' 

Description:  energy  loss  due  to  evaporation 


Variable  name:  el 
Common  blocks:  'spec.bout’ 

Subroutines:  'bci',  'bcone' 

Description:  intermediate  calculation  passed  from  'bcone' 

Variable  name:  e2 
Common  blocks:  'spec.bout’ 

Subroutines:  'bci',  'bcone' 

Description:  intermediate  calculation  passed  from  'bcone' 

Variable  name:  e4 
Common  blocks:  'spec.bout' 

Subroutines:  'bci',  'bcone' 

Description:  intermediate  calculation  passed  from  'bcone' 

Variable  name:  elf 
Subroutines:  'bevapor' 

Description:  latitude  in  radians 

Variable  name:  epsn 
Subroutines:  'bevapor' 

Description:  emissivity  of  surface 


Variable  name:  facth 
Subroutines:  'bevapor’ 

Description:  intermediate  calculation  in  solving  hterm 

Variable  name:  fexist 

Description:  logical  test  variable  used  to  test  if  a  file  exists 

Variable  name:  fmm(j,i) 

Common  blocks:  'spec.bfour' 

Subroutines:  ‘baiter’,  ‘bevapor’ 

Description:  rate  of  change  of  met.  observations 


Variable  name:  gamma 
Common  blocks:  ‘spec.bthree’ 

Subroutines:  ‘bcone',  'bread' 

Description:  soil  density 

Variable  name:  gg 
Common  blocks:  'spec.bthree' 

Subroutines:  'bci',  'bmenu',  'bread',  'bview' 
Description:  soil  shear  modulus 

Variable  name:  hterm 
Subroutines:  'bevapor' 

Description:  energy  loss  or  gain  due  to  convection 


Variable  name:  1 
Description:  counter 

Variable  name:  icount 
Subroutines:  bcntV 
Description:  counter 

Variable  name:  it 

Description:  counter  set  to  an  menu  option  number  by  the  user 

Variable  name:  HJ 
Subroutines:  bhydcon' 

Description:  counter  on  the  20  point  soil  -  moisture  characteristic  curve 

Variable  name:  i  j 
Subroutines:  'bevapor' 

Description:  counter 

Variable  name:  il 
Subroutines:  bcntr 

Description:  counter  for  number  of  runs  to  be  made 

Variable  name:  imax 
Subroutine:  'baiter' 

Description:  counter  to  ensure  that  the  rate  of  change  of  the  above 
varibles  is  only  calculated  between  observations 


Variable  name:  Immax 
Common  blocks:  'spec.bthree" 

Subroutines:  'binfil',  'bmenu',  'bread',  'bview' 

Description:  duration  of  run  time 

Variable  name:  1r 
Common  blocks:  'spec.btwo” 

Subroutines:  'binfil',  'bmenu',  'bread',  'bview' 

Description:  number  of  hours  of  rain 

Variable  name:  Iset 
Common  block:  'bgrnd' 

Subroutines:  bcntl',  'binfil',  'bmenu' 

Description:  check  variable  -  checks  if  input  data  file  has  already 
been  read 

Variable  name:  tsty(lO) 

Common  blocks:  'spec.bgrnd' 

Subroutines:  'bmenu',  'bread',  'bschars',  'bview' 

Description:  soil  type 

Variable  name:  tval 
Subroutines:  'bcntl' 

Description:  'identifier'  used  in  'data.n',  where  n  -  ival 


Variable  name:  J 
Description:  counter 
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Variable  name:  jr 

Description:  test  variable  -  checking  if  the  user  is  editing  or  creating  an 
input  file 

Variable  name:  jt 
Subroutines:  'bhydcon' 

Description:  counter  on  the  20  point  soil  -  moisture  characteristic  curve 


Variable  name:  k 

Subroutines:  'bmenu',  ’bread',  'bview' 
Description:  counter 

Variable  name,  kl 
Subroutine:  'bcntr,  'bmenu' 

Description:  sets  input  -  output  status 


Variable  name:  lat 
Common  blocks:  'spec.btwo' 

Subroutines:  'bevapor',  'bmenu',  'bread',  'bview' 
Description:  latitude  of  site 


Variable  name:  m 
Subroutines:  bevapor' 

Description:  secant  of  solar  zenith  angle  in  radians 


Variable  name:  m 
Subroutines:  ’bcone' 

Description:  intermediate  calculation 

Variable  name:  max(6) 

Common  blocks:  'spec.btwo' 

Subroutines:  'bevapor',  'bmenu',  ’bread',  ‘bview’ 
Description:  number  of  met.  observations  (alg.  2021  Id) 

Variable  name:  m1ss(30) 

Subroutines;  'bcntl' 

Description:  name  of  input  data  file 


Variable  name:  name 

Description:  character  variable  set  to  name  of  file 

Variable  name:  ncloud 
Common  blocks:  ’spec.btwo’ 

Subroutines:  'bevapor',  'bmenu',  'bread',  'bview' 
Description:  cloud  type 

Variable  name:  nla(10) 

Common  blocks:  'spec.bthree' 

Subroutines:  binfil',  'bmenu',  'bread',  'bview' 
Description:  number  of  cells  in  soil  profile 
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Variable  name;  nos 
Common  blocks:  ’spec.bone' 

Subroutines:  bcnti',  'bmenu',  'bread',  'bview' 
Description:  number  of  soil  layers 

Variable  name:  ntabl 
Subroutines:  'bevapor' 

Description:  table  number 


Variable  name:  op(  1 1 ) 

Common  blocks:  'spec.bone' 

Subroutines:  'bmenu',  'bread',  bsoilbd',  'bview' 
Description:  organic  percentage  of  each  soil  layer 

Variable  name:  phi 
Common  blocks:  'spec.bthree' 

Subroutines:  'bci',  'bcone',  'bmenu',  'bread',  'bview' 
Description:  Internal  angle  of  friction 

Variable  name:  phlb 
Common  blocks;  'spec.bthree' 

Subroutines:  'bci',  'bcone',  'bmenu',  'bread',  'bview' 
Description:  remoulded  angle  of  friction 

Variable  name:  ppt(  140) 

Common  blocks:  'spec.btwo' 

Subroutines:  'binfll',  'bmenu',  'bread',  'bview' 
Description:  hourly  precipitation  values 


Variable  name:  press 
Common  blocks:  'spec.btwo' 

Subroutines:  'bevapor',  'bmenu',  ’bread’,  ’bview’ 
Description:  barometric  pressure 


Variable  name:  rci 
Common  blocks:  ’spec.bout’ 

Subroutines:  ’bci',  'binfil' 

Description:  cone  index  passed  to  ‘binfil’  where  it  is  modified  to 
rating  cone  index 

Variable  name:  ri 
Subroutines:  bevapor' 

Description:  Richardson  index 


Variable  name:  si 
Common  blocks:  'spec.bout' 

Subroutines:  'bci',  'bcone' 

Description:  intermediate  calculation  passed  from  'bcone' 

Variable  name:  s2 
Common  blocks:  spec.bout' 

Subroutines:  'bci',  bcone' 

Description:  intermediate  calculation  passed  from  'bcone' 


Variable  name:s3 
Subroutines:  'bci' 

Description:  intermediate  calculation 

Variable  name:  satcon(  1 1 ) 

Common  blocks:  'spec.bgrnd’ 

Subroutines,  'binfil',  'bcntl',  'bhydcon' 

Description:  saturated  hydraulic  conductivity  for  each  layer 

Variable  name:  saz 
Subroutines:  'bevapor' 

Description:  solar  azimuth  in  radians 

Variable  name:  sbp(  1 1 ) 

Common  blocks;  'spec.bnow',  'spec.bdr 
Subroutines:  'bschars' 

Description:  standard  deviation  for  distribution  of  bubbling  pressure  (air 
entry  matric  potential)  for  soils  1..1 1 

Variable  name:  scp(1 1) 

Common  blocks;  'spec.bnow',  'spec.bdr 
Subroutines:  bschars’ 

Description:  standard  deviation  of  clay  content  percentage  distribution  for 
soil  types  1.11 

Variable  name:  sicf 
Subroutines:  'bevapor' 

Description;  insolation  adjustment  due  to  zenith  angle,  surface  slope  and 
surface  aspect  angle 
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Variable  name:  slope 
Common  blocks:  'spec.btwo' 

Subroutines:  'baiter',  'bevapor',  'bmenu',  'bread',  ‘bview’ 

Description:  slope  angle  (degrees) 

Variable  name:  sm(1 1 ) 

Common  blocks:  'spec.bnow',  'spec.bdl' 

Subroutines:  bschars' 

Description:  standard  deviation  of  mineral  bulk  density  distribution  of  soil 
types  I ..  1 1 

Variable  name:  sp(  1 1 ) 

Common  blocks:  'spec.bgrnd' 

Subroutines:  ‘bschars’,  ’bsoilbd' 

Description:  sand  content  percentage  for  each  soil  layer 

Variable  name:  speed 
Subroutines:  'bevapor' 

Description:  wind  speed  (cm/sec) 

Variable  name:  sr(j) 

Common  blocks:  'spec.bgrnd' 

Subroutines:  'bcntl',  'bhydcon',  'binfil',  'bschars' 

Description:  saturated  water  content  calculated  in  'bschars' 

Variable  name:  ssatcon(  1 1 ) 

Common  blocks:  ’spec.bnow",  'spec.bdata' 

Subroutines:  ’bschars' 

Description:  standard  deviation  of  saturated  hydraulic  conductivity 
distribution 


Variable  name:  ssp(  1 1 ) 

Common  blocks:  ‘spec.bnow’,  'spec.bdl' 

Subroutines:  'bschars' 

Description:  standard  devaition  of  sand  content  percentage  distribution  of 
soil  types  1..1 1 

Variable  name:  ssr(  1 1 ) 

Common  blocks:  "spec.bnow',  'spec.bdl" 

Subroutines:  'bschars' 

Description:  standard  deviation  of  distribution  for  the  saturation  for  soils 
I..11 

Variable  name:  sum 
Subroutine:  "bci' 

Description:  intermediate  calculation 

Variable  name:  sun 
Subroutines:  "bevapor' 

Description:  calculated  insolation  value 

Variable  name:  surfacaz 
Common  blocks:  'spec.btwo' 

Subroutines:  'baiter',  'bevapor',  bmenu’,  'bread',  'bview' 

Description:  surface  azimuth  angle 


Variable  name;  t 
Subroutines:  ’bevapor' 

Description:  time 

Variable  name:  ta 
Subroutines:  'bevapor' 

Description:  air  temperature  in  kelvin 

Variable  name:  tac 
Subroutines:  'bevapor' 

Description:  air  temperature  in  Celsius 

Variable  name:  tak 
Subroutines:  'bevapor' 

Description:  air  temperature  in  kelvin 

Variable  name:  tcom(20) 

Common  blocks:  'spec.btwo' 

Subroutines:  'blnfir,  'bmenu',  'bread',  'bview' 
Description:  thickness  of  soil  cells 

Variable  name:  tf(  10,20) 

Common  blocks:  'spec.btwo' 

Subroutines:  'blnfir,  'bmenu',  'bread',  'bview' 
Description:  initail  soil  moisture  content  of  each  cell 

Variable  name:  timer 
Subroutines:  'bevapor' 

Description:  sun’s  hour  angle  in  radians 


Variable  name:  tops 
Subroutines:  ‘bhydcon' 

Description:  higher  point  on  20  point  0-k  curve  that  observation  is  next  to 

Variable  name:  tyme 
Subroutines:  'bevapor' 

Description:  time  in  hours 

Variable  name:  ua 
Common  blocks:  'spec.bthree* 

Subroutines:  bci',  'bcone',  ’bread' 

Description:  air  entry  matric  potential 

Variable  name:  uw 
Common  blocks:  ’spec.bout’ 

Subroutines:  'bci',  'binfil' 

Description:  soil  water  potential 

Variable  name:  water 
Subroutines,  'bevapor' 

Description:  amount  of  precipital  water  (mm)  calculated  for  use  in  solving 
insolation 

Variable  name:  wet 
Subroutines:  bevapor' 

Description:  moisture  content  of  surface  layer 


Variable  name:  x(j,1) 

Common  blocks:  'spec.bman' 

Subroutines:  'bcntr,  'binfil' 

Description:  0  values  for  20  point  0-U  curve  passed  to  ‘binfil’ 

Variable  name:  xii 
Subroutines:  'bhydcon' 

Description:  counter  on  the  20  point  soil  -  moisture  characteristic  curve 

Variable  name:  xl 
Subroutines:  'bevapor' 

Description:  latent  heat  of  evaporation  as  function  of  air  and  ground 
temperature 

Variable  name:  xnew(j,i) 

Common  blocks:  'spec.bman' 

Subroutines:  'bcntl',  'bsmcurv' 

Description:  8  values  for  20  point  8-*  curve  passed  from  'bsmcurv' 

Variable  name:  xxx(l0,6) 

Common  blocks:  ’spec.btwo' 

Subroutines:  'bevapor',  'bmenu',  bread',  ’bview 
Description:  times  of  met.  observations  (alg.  2021  id) 

Variable  name:  y(j,i) 

Common  blocks:  'spec,bdat2' 

Subroutines;  'bcntr 

Description:  specified  matric  potentials  for  use  in  8-y  curve 


Variable  name:  yjj 
Subroutines,  'bhydcon' 

Description:  counter  on  the  20  point  soil  -  moisture  characteristic  curve 

Variable  name:  yyy(  1 0,6) 

Common  blocks:  ‘spec.btwo’ 

Subroutines:  'baiter1,  'bevapor',  'bmenu',  ’bread’,  'bview' 

Description:  met.  observations  (alg.  2021  Id) 

Variable  name:  z(1 1,20) 

Common  blocks:  ’spec.bfour’ 

Subroutines:  ’bhydcon’,  ’binfil’ 

Description:  hydraulic  conductivity 

Variable  name:  za 
Common  blocks:  'spec.btwo' 

Subroutines:  ’bevapor’,  ’bmenu',  'bread',  ’bview’ 

Description:  site  zenith  angle 

Variable  name:  zim 
Subroutines:  ’bevapor’ 

Description:  solar  zenith  angle 

Variable  name:  zz 
Common  blocks:  ’spec.bthree’ 

Subroutines:  ’bci',  ’bmenu',  ’bread’,  ’bview’ 

Description:  depth  of  cone  tip 


The  following  section  contains  a  list  of  the  parameters  and  variables  used 
in  the  VSAS2.  It  is  arranged  in  the  alphabetical  order  of  the  variable 
name.  Each  name  is  accompanied  by  the  common  block  they  may  be  in,  the 
subroutines  they  are  used  in  and  a  brief  description  of  their  function. 

Variable  name:  aal 
Common  blocks:  'spec.vcone' 

Subroutines:  'vcone',  'vread', 

Description:  cone  length  =1.48in 

Variable  name:  adepth 
Common  blocks:  'spec.vcom2‘ 

Subroutines:  ’vblkvor,  'vmenu',  ’vread’,  ’vview' 

Description:  depth  of  top  layer  (alg.  20221a) 

Variable  name:  alpha(5) 

Subroutines,  'vblkvor 
Description: 

Variable  name:  alpha 
Common  blocks:  ’spec.vcone' 

Subroutines:  'vcone',  'vread' 

Description:  cone  tip  half  angle  =15° 


Variable  name:  answ 
Subroutines:  'vcntV,  'vmenu' 

Description:  character  variable  set  to  y  or  'n'  by  the  user  in  reply  to  a 
system  query 

Variable  name:  area(!6) 

Common  blocks;  'spec.vgeom' 

Subroutines:  'vblkvor 
Description:  area  of  each  increment 

Variable  name:  asdl 
Subroutines;  'vblkvor 

Description:  set  to  half  the  height  increase  above  the  centre  of  an  element 

Variable  name:  asd2 
Subroutines:  'vblkvor 

Description:  set  to  half  the  height  increase  below  the  centre  of  an  element 

Variable  name:  as1en(5,!6) 

Common  blocks:  'spec.cgeom' 

Subroutines:  'vblkvor 

Description:  average  distance  between  the  mid-points  of  two  side  by  side 
segments 

Variable  name:  avdep(5,16,5) 

Common  blocks:  'spec.vgeom' 

Subroutines:  'vblkvor,  vdrain',  'vinit',  'vouta' 

Description:  average  depth  of  the  mid  point  of  each  element 


Variable  name:  avdrop(5,16,5) 

Common  blocks:  'spec.vgeom' 

Subroutines:  'vblkvol',  'vinit' 

Description:  average  height  drop  across  an  element 

Variable  name:  avele(5,16,5) 

Common  blocks:'spec.vgeom' 

Subroutines:  'vblkvol',  'vdtain',  'vinit',  'vlatflo',  vlatf lo2‘,  'vouta' 
Description:  average  elevation  of  each  increment  up  the  slope 

Variable  name:  avlen(5, 1 6) 

Common  blocks:  'spec.vgeom' 

Subroutines:  'vblkvol',  'vinit* 

Description:  average  length  of  segment 

Variable  name:  avvol(5,16,5) 

Common  blocks:  'spec.vgeom' 

Subroutines:  'vblkvol',  'vdrain',  'vinit',  ‘vlatflo2’,  'vouta' 
Description:  average  volume  of  each  element 

Variable  name:  avw1d(5, 1 6) 

Common  blocks:  spec.vgeom' 

Subroutines:  'vblkvol',  'vinit',  'vouta' 

Description:  average  width  of  each  increment 


Variable  name:  c 
Common  blocks:  'spec.vcone' 

Subroutines:  ’vcone' 

Description:  soil  cohesion 

Variable  name:  clevel 
Common  blocks:  'spec.vgeom' 

Subroutines:  'vdraln’,  'vlnlt',  ’vmenu’,  'vread',  'vview' 
Description:  channel  level  (alg  20221a) 


Variable  name:  depmax(5, 1 6) 

Common  blocks:  'spec.vcomZ 

Subroutines:  'vblkvol',  'vmenu',  'vread',  'vview' 

Description:  depth  of  each  increment  (alg  20221a) 

Variable  name:  d1ff(5) 

Subroutines:  'vblkvol' 

Description: 


Variable  name:  el 
Common  blocks:  'spec.vcone2' 

Subroutines:  'vci',  'vcone' 

Description:  Intermediate  calculation  passed  from  'vcone' 


Variable  name:  e2 
Common  blocks:  'spec.vcone2' 

Subroutines:  'vci',  'vcone' 

Description:  intermediate  calculation  passed  from  'vcone' 

Variable  name:  e3 
Subroutines:  ‘vci’ 

Description:  intermediate  calculation 

Variable  name:  e4 
Common  blocks:  ‘spec.vconeZ 
Subroutines:  'vci',  'vcone' 

Description:  intermediate  calculation  passed  from  'vcone' 

Variable  name:  elev(5, 0:20,5) 

Subroutines:  'vblkvoV 

Description:  local  array  set  to  the  mid  elevation  between  2  elements 
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Variable  name:  fac 

Subroutines:  'vdrain',  ’vlatflo',  ’vlatf lo2‘ 

Description:  conversion  factor  cm/hr  to  m/hr 

Variable  name:  fexlst 
Subroutines:  vcntr,  ‘vmenu' 

Description:  logical  test  variable  used  to  test  if  a  file  exists 

Variable  name:  flow(5,6) 

Common  blocks:  ’spec.vwater’ 

Subroutines:  'vcntr,  'vdrain* 

Description:  outflow  from  each  layer 

Variable  name:  fname 
Subroutines:  'vcntl',  'vmenu' 

Description:  character  variable  representing  a  file  name 


Variable  name:  gg 
Common  blocks:  'spec.vcone' 

Subroutines:  'vcone', 'vmenu',  ‘vread’,  ’vview' 
Description:  soil  shear  modulus 


Variable  name:  hlen(5) 

Common  blocks:  'spec.vindex' 

Subroutines:  'vblkvol',  'vmenu',  'vread',  'vview' 
Description:  mean  length  of  segment 


Variable  name:  hor1z(5,6) 

Common  blocks;  'spec.vcomr 

Subroutines;  'vblkvol’,  'vinit',  'vmenu',  'vread',  'vview' 

Description;  length  of  segment  side  (alg.  20221a) 


Variable  name;  lend 
Common  blocks: 

Subroutines:  ‘vcntr 

Description:  number  of  hours  for  duration  of  run 

Variable  name:  Imonth 
Common  blocks:  'spec.vtime' 

Subroutines:  'vcntl',  'vread',  'vview',  'vouta' 

Description;  month  run  is  to  simulate 

Variable  name:  tsgno 
Common  blocks:  'spec.vindex' 

Subroutines:  ‘vcntr,  'vmenu1,  'vread',  'vview',  'vouta',  'voutb' 

Description:  segment  number 

Variable  name:  it 
Common  blocks:  'spec.vindex 
Subroutines:  'vcntr 
Description:  iteration  number 

Variable  name:  lx 

Subroutines:  'vcntr,  'vdrain',  'vouta' 

Description:  counter  set  to  1  for  vertical  flow  and  2  for  slopewise  flow 
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variable  name:  txm 
Common  blocks:  'spec.vindex' 
Subroutines:  'vcntl',  'vouta' 
Description: 


Variable  name:  jno 
Common  blocks:  'spec.vindex1 

Subroutines:  'vblkvol',  'vdrain',  'vinit1,  'vlatflo1,  'vlatflo2‘,  ’vmenu1,  vread', 
vview' 

Description:  number  of  soil  layers 

Variable  name:  Jx 
Subroutines:  vdrain1,  'vblkvol' 

Description:  counter 


Variable  name:  k 
Subroutines:  'vblkvol1 
Description:  counter 

Variable  name  k  I 
Subroutines:  'vcntl',  vmenu 
Description:  sets  input  -  output  status 

Variable  name  km 
Subroutines:  vblkvol' 

Description  counter 


Variable  name:  kno 
Common  blocks:  'spec.vindex' 

Subi  outines:  'vblkvol',  'vcntl',  vdrain',  vinit',  'vmenu',  'vouta' 

‘vread',  'vview' 

Description:  total  number  of  segments 

Variable  name:  krep 
Common  blocks:  'spec.vindex' 

Subroutines:  'vcntl',  'vdrain',  'vlatflo',  'vlatf lo2‘,  'vmenu',  'vread',  'vview' 
Description:  number  of  coarse  iterations  in  one  hour 

Variable  name:  ksum 
Common  blocks: 

Subroutines:  'vblkvol' 

Description: 


Variable  name:  lrep 
Common  blocks:  'spec.vindex' 

Subroutines:  'vcntl',  'vdrain',  'vlatflo',  ‘vlatf lo2',  'vmenu',  'vread',  'vview' 
Description:  number  of  finer  iterations  in  each  'krep'  iteration 


Variable  name:  moi 
Subroutines:  ‘vcntV 

Description:  character  variable  set  to  a  file  name 

Variable  name:  ni 
Common  blocks:  ’spec.vindex' 

Subroutines:  'vblkvol',  'vdrain',  ‘vlatflo’,  'vlatf  lo2‘,  vouta' 

Description:  counter  used  to  descrbe  the  increments  up  the  slope 

Variable  name:  nl 
Common  blocks:  'spec.vindex' 

Subroutines,  'vblkvol' 

Description:  counter 

Variable  name:  nllmk(k) 

Common  blocks:  'spec.vkgr' 

Subroutines:  'vblkvol',  'vinit',  'vlatflo',  vlatf lo2',  'vrnenu',  'vouta',  ’vread', 
vview' 

Description:  number  of  increments  up  the  slope  of  segment  'k' 

Variable  name:  nn 

Subroutines:  'vblkvol',  'vrnenu',  'vread',  'vview' 

Description  counter 

Variable  name:  nnn 
Subroutines:  vent!' 

Description:  counter 


Variable  name:  nouta 
Common  blocks:  'spec.vlndex' 

Subroutines:  'vcntl',  'vmenu',  'vread',  'vview' 

Description:  option  for  printout  of  segment  geometry,  if  nouta  =  0  print, 
otherwise  do  not 

Variable  name:  ns 
Subroutines:  'vdrain' 

Description:  counter 

Variable  name:  ntmp 
Common  blocks:  'spec.vlndex* 

Subroutines:  vcntl',  'vmenu',  'vread',  'vview' 

Description:  option  for  printout  of  hourly  segment  status,  if  ntmp  =  0 
print,  otherwise  do  not 

Variable  name:  nx 
Subroutines:  'vdrain' 

Description:  counter 


Variable  name:  phi 
Common  blocks:  'spec.vcone' 

Subroutine's:  ’vcone’,  'vmenu',  ’vread' 
Description:  internal  angle  of  soil’s  friction 


Variable  name:  phlb 
Common  blocks:  'spec.vcone' 

Subroutines:  ’vci’,  ’vcone',  'vmenu',  ’vread’,  'vvlew' 

Description:  remoulded  internal  angle  of  soil’s  friction 

Variable  name:  pnet 
Common  blocks:  ’spec.vwater’ 

Subroutines:  ’vcntl',  ‘Vinter’,  'vouta',  ’vsurflo’ 

Description:  net  hourly  precipitation  values 

Variable  name:  pnr 
Common  blocks:  ’spec.vwater’ 

Subroutines:  'vcntl',  ’vdrain’ 

Description:  amount  of  water  available  to  infiltrate  the  permeable  surface 
area  of  the  segment 

Variable  name:  poros(5,16,5) 

Common  blocks:  ’spec.vphys’ 

Subroutines:  ’vcon’,  ’vdrain’,  'vinit',  ‘vmenu’,  'vouta',  ’vread’,  'vview', 
'vxmatrx' 

Description:  porosity  of  each  element 

Variable  name:  pos(3) 

Common  blocks;  ’spec.vdata’ 

Subroutines:  ’vinit',  'vmenu',  'vread',  'vview' 

Description:  position  up  the  slope  that  hydrological  parameters  change 

Variable  name,  potdlf 
Subroutines:  vdrain',  vlatf lo2' 

Description:  potential  difference  between  elements 


Variable  name:  poten(5,16,5) 

Common  blocks:  ‘spec.vphys' 

Subroutines:  'vdrain',  Vlatflo',  'v1atflo2',  'vouta',  'vxmatrx' 
Description:  soil  water  potential  for  each  element 

Variable  name:  prec1p(  1 500) 

Common  blocks:  'spec.vwater' 

Subroutines:  'vcntr,  Vinter1,  Vmenu1,  VreacT,  'vview1 
Description:  hourly  precipitation  values 

Variable  name:  pres(5, 16,5) 

Common  blocks:  'spec.vphys1 
Subroutines:  Vdrain1 

Description:  positive  pressure  of  each  soil  element 


Variable  name:  q 
Common  blocksfspec.vwater' 

Subroutines:  'vcntl1 

Description:  segment  outflow  rate  for  each  hourly  iteration  (ft3/hr) 

Variable  name:  qq 
Subroutines:  'vcntr 

Description:  cumulative  segment  outflow  rate  for  each  hourly  iteration 
(m3/hr) 

Variable  name:  qqq(40) 

Subroutines:  'vcntr 

Description:  cumulative  outflow  from  each  segment 
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Variable  name:  qqqq 
Subroutines:  'vcntl* 

Description:  total  outflow  for  cumulated  segments  for  simulated  period 
(m3) 


Variable  name:  rain 
Subroutines:  'vcntl',  'vinter',  'voutb' 

Description:  precipitation  value  calculated  after  interception  in  'vinter' 


Variable  name:  si 
Common  blocks:  'spec.vcon2' 

Subroutines:  'vci*,  'vcone' 

Description:  intermediate  calculation  passed  from  'vcone' 

Variable  name:  s2 
Common  blocks:  'spec.vcone2' 

Subroutines:  'vci',  'vcone' 

Description:  intermediate  calculation  passed  from  'vcone' 

Variable  name:  s3 
Subroutines;  'vci' 

Description:  intermediate  calculation 

Variable  name,  sgarea 
Common  blocks:  'spec.vcom2' 

Subroutines:  'vblkvol',  'vcntl',  'vmenu',  'vouta',  'vread',  'vview' 

Description:  segment  area 


Variable  name:  shlft(5) 

Common  blocks:  'spec.vkgr' 

Subroutines:  'vdrain',  'vblkvol' 

Description; 

Variable  name:  smcmax(5,16,5) 

Common  blocks:  'spec.vphys' 

Subroutines:  ’vdrain',  'vinit* 

Description:  maximum  soil  water  content  for  each  element 

Variable  name:  smcvol(5,16,5) 

Common  blocks:  'specvphys' 

Subroutines:  'vdrain’,  'vinit',  'vlatflo',  ‘vlatf lo2',  'vouta' 
Description:  actual  water  content  of  each  element 

Variable  name:  stonec(5) 

Common  blocks:  'spec.vgeom' 

Subroutines:  'vblkvol',  ’vinit’,  ’vmenu’,  ’vread',  'vvlew' 
Description:  stone  content  of  each  layer 

Variable  name:  sum 
Subroutines:  vci* 

Description:  Intermediate  calculation 

Variable  name:  sumar(5, 16) 

Common  blocks:  'spec.vgeom' 

Subroutines:  'vblkvol',  ’vdrain' 

Description:  area  of  each  element 


Variable  name:  tpbv 
Subroutines:  'vcon',  'vdrain' 

Description:  soil  moisture  content  passed  from  'vdrain'  to  'vcon'  to 
calculate  the  hydraulic  conductivity 

Variable  name:  ua 
Common  blocks:  'spec.vcone' 

Subroutines:  ’vci',  'vcone',  'vread1 
Description:  air  entry  matrlc  potential 

Variable  name:  uw 
Subroutines:  'vci',  'vouta' 

Description:  soil  water  potential  passed  from  'vouta'  as  an  argument 

Variable  name:  vci 
Description:  cone  index 

Variable  name:  xf1o(5,16,5) 

Subroutines:  'vdrain',  'vlatflo',  'vlatflo2' 

Description:  slopewise  flow  from  each  element 

Variable  name:  xi(5,l6) 

Common  blocks,  'spec.com  1 ' 

Subroutines:  'vblkvol',  vlatf lo2‘,  'vmenu',  'vread',  vview' 

Description:  distance  from  stream  of  each  increment  (alg.  20221a) 


ipS 

V  *  W*V  V .  w*  V 


5 

s 


m 


•;  «/■ 

V  V>  V  v  v 
•v'v  ! 


O  K'hJr  K.w. 


in 

•  • 

?w»; 

*  */  v  "  •  ' 

V'/Cv*'.-V 

vvvvv 


N’  V*  /  VV 
•  V  -  H 


Variable  name:  xw1dth(  5,6) 

Common  blocks:  'spec.vcomZ 
Subroutines:  'vblkvol',  'vmenu',  'vread',  ‘vview’ 
Description:  widths  of  segment  (alg  20221a) 

Variable  name:  y1(5, 1 6) 

Common  blocks:  'spec.vcom2‘ 

Subroutines:  'vblkvol',  'vmenu',  'vread',  'vview' 
Description:  elevation  of  each  increment  (alg  20221) 

Variable  name:  zz 
Common  blocks:'spec.vcone' 

Subroutines:  'vcone',  'vmenu',  'vread' 

Description:  depth  of  interest  (i.e.  cone  tip) 


This  subroutine  controls  the  optimum  route  management  scheme  and  is 
called  by  TcntV 


Variable  name:  ansi 
Common  blocks:  Tgrid’ 

Subroutines:  ’rroute',  'rread' 

Description:  character  variable  set  in  ‘rread’  by  the  system  asking  if  the 
user  wishes  to  return  to  the  previous  levels  menu  (y  or  n) 


A3.2  Subroutine  'JX&tiZ  (glgoptm  2Q42b) 

This  subroutine  asks  the  user  to  be  certain  that  a  full  set  of  data  files 
exists .  The  user  is  asked  if  they  would  like  to  return  to  the  previous 
level’s  menu.  If  the  user  continues,  the  subroutine  asks  for  the  maximum 
number  of  files  to  be  accessed  and  the  time  the  RCi  value  is  to  be  read  at. 
The  data  files  are  then  accessed  (data.  1  ,..,.data.max,  where  max  =  maximum 
number  of  files  defined  by  the  user. 

Variable  name:  ansi 
Common  blocks:  'rgrid' 

Subroutines:  rroute’,  Tread’ 

Description:  character  variable  set  in  Tread'  by  the  system  asking  if  the 
user  wishes  to  return  to  the  previous  levels  menu  (y  or  n) 


Variable  name:  t 

Description:  time  RCi  is  required  at 

Variable  name:  n 

Description:  maximum  number  of  files  to  be  accessed 

Variable  name:  name 

Description:  character  variable  set  to  the  name  of  the  data  file  to  be 
accessed 

Variable  name:  try(J) 

Common  blocks:  'spec.tset' 

Subroutines:  'mead' 

Description:  character  variable  array  containing  the  logical 
sequence  of  ‘data.n'  files 

Variable  name:  kk 

Description:  counter  used  to  read  the  initial  information  from  the 
'data.n'  files  until  the  required  time  'C  is  reached 

Variable  name,  lab 

Description:  dummy  variable  used  in  reading  initial  unwanted 
information  from  the  'data.n'  files 

Variable  name:  ir(n) 

Common  blocks:  'rrci' 

Subroutines,  'rread',  'rrcid' 

Description:  RCI  value  read  from  data  file  data.n' 
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This  subroutine  calculates  an  optimum  route  from  a  specified  grid  and 
library  of  data  files.  It  asks  the  user  to  specify  start  and  finish  squares. 


Variable  name:  fname 

Description:  character  variable  set  by  the  user  to  the  name  of  the  grid 

Variable  name:  fextst 

Description:  a  logical  test  variable  -  testing  if  sa  file  exists 

Variable  name:  11ml 

Description:  lower  limit  of  RCI  that  vehicle  can  move  on 
Variable  name:  jj 

Description:  counter  for  number  of  columns 

Variable  name:  II 

Description:  counter  for  number  of  rows 

Variable  name:  igg(  1 5, 1 5) 

Common  blocks:  ‘spec.rgrid’ 

Subroutines:  Trcid’ 

Description:  igg(posc,posr)  is  the  RCI  at  the  time  T  of  the  grid  square 
located  at  column  'pose’  and  row  'posr' 
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Variable  name:  1r(30) 

Common  blocks:  'spec.rrci' 

Subroutines:  'rread',  rrcid' 

Description:  RCI  read  In  'rread*  for  each  Identifying  integer 

Variable  name:  1g(  1 5, 1 5) 

Common  blocks:  'spec.rgrid* 

Subroutines:  ’rread',  'rcreate',  'rrcid',  'rsave' 

Description;  identifying  integer  (relating  to  'data.n')  for  each  grid  square 
Variable  name:  check(  1 5, 1 5) 

Description:  each  grid  square  is  allocated  a  check  number  (move 
number  kkk)  when  considered  as  a  potential  move 

Variable  name:  j 
Description:  counter 

Variable  name:  1 
Description,  counter 

Variable  name;  kl 

Description:  sets  input  -  output  status 

Variable  name:  cs 

Description:  column  start,  i  e.  start  square  is  identified  by  col.  cs,  row  rs 

Variable  name,  rs 

Description:  row  start,  i.e.  start  square  is  identified  by  col  cs,  row  rs 


Variable  name:  cf 

Description:  column  finish,  i.e  finish  square  is  identified  by  col.  cf,  row  rf 

Variable  name:  rf 
Description:  row  finish 

Variable  name:  pose 

Description:  present  column  position,  i.e.  present  grid  square  id  identified 
by  col.  pose,  row  posr 

Variable  name:  posr 
Description:  present  row  position 

Variable  name.kkk 

Description:  counter  for  number  of  moves  -  set  to  a  max.  of  30  at  present 

Variable  name:  rtc(30) 

Description:  rtc(kkk)  Is  column  position  of  move  'kkk' 

Variable  name:  rtr(30) 

Description:  rtr(kkk)  is  row  position  of  move  'kkk' 

Variable  name:  trackc(30) 

Common  blocks:  'spec.rtrav' 

Subroutines:  'rrcid',  'rprint' 

Description:  trackc(kkk)  is  the  column  position  of  move  'kkk' 


Variable  name:  trackr(30) 

Common  blocks:  'specrtrav' 

Subroutines:  'rrcid',  'rprint' 

Description:  trackr(kkk)  is  the  row  position  of  move  'kkk' 

Variable  name:  blase 

Description:  bias  of  present  grid  position  column  from  finish  column 

Variable  name,  btasr 

Description:  bias  of  present  grid  position  row  from  finish  row 

Variable  name:  be 

Description:  variable  set  according  to  column  bias  for  which  direction  to 
look  for  next  move  and  bias  the  move  in  a  direction  towards 
the  finish  square 

Variable  name:  br 

Description:  variable  set  according  to  row  bias  for  which  direction  to  look 
for  next  move  and  bias  the  move  in  a  direction  towards  the 
finish  square 

Variable  name:  iac 

Description:  set  to  ensure  that  bias  in  column  direction  is  an  integer 

Variable  name:  lar 

Description:  set  to  ensure  that  bias  in  row  direction  is  an  integer 

Variable  name:  iac 

Description;  set  to  ensure  that  bias  in  column  direction  is  an  integer 


Variable  name:  total 

Description:  sum  of  total  bias  in  both  rows  and  columns 

Variable  name:  dtff 

Description:  calculates  the  dominant  direction  of  movement,  i.e. 
north  <->  south  or  west  <->  east 

Variable  name:  movec 

Description:  next  move  is  set  to  column  ’movec" 

Variable  name:  mover 

Description:  next  move  is  set  to  row  'mover' 

Variable  name:  kan 

Description:  recalculation  of  the  biased  RCI  value  in  the  grid  square 

Variable  name:  kbn 

Description:  recalculation  of  the  biased  RCI  value  in  the  grid  square 

Variable  name:  ken 

Description:  recalculation  of  the  biased  RCI  value  in  the  grid  square 

Variable  name:  Ian 

Description:  recalculation  of  the  biased  RCI  value  in  the  grid  square 
■  (north  <->  south  movt.  in  algorithm  2042g) 

Variable  name;  Ibn 

Description:  recalculation  of  the  biased  RCI  value  in  the  grid  square 
(north  <->  south  movt.  in  algorithm  2042g) 


Variable  name:  icn 

Description:  recalculation  of  the  biased  RC!  value  In  the  grid  square 
(north  <->  south  movt,  In  algorithm  2042g) 

Variable  name:  jan 

Description:  recalculation  of  the  biased  RCI  value  in  the  grid  square 
(west  <->  east  movt.  in  algorithm  2042g) 

Variable  name:  Jbn 

Description:  recalculation  of  the  biased  RCI  value  in  the  grid  square 
(west  <->  east  movt.  in  algorithm  2042g) 

Variable  name:  Jen 

Description:  recalculation  of  the  biased  RCI  value  in  the  grid  square 
(west  <->  east  movt.  in  algorithm  2042g) 


This  subroutine  prints  out  the  optimum  route  track  in  terms  of  grid  square 
moves.  It  is  called  by  'rrcid'. 

Variable  name:  j 

Description:  counter  for  number  of  moves 

Variable  name:  trackc(30) 

Common  blocks:  'spec.rtrav' 

Subroutines:  'rrcid',  'rprint' 

Description:  trackc(kkk)  is  the  column  position  of  move  'kkk' 

Variable  name:  trackr(30) 

Common  blocks:  'spec.rtrav' 

Subroutines:  'rrcid',  'rprint' 

Description:  trackr(kkk)  is  the  row  position  of  move  'kkk' 


This  subroutine  creates  a  grid  to  the  users'  specifications  and  is  called  by 
rent!'. 

Variable  name:  kit 
Common  blocks;'spec.rgr1d' 

Subroutines:  ’rcreate',  Tread' 

Description:  check  variable  used  in  checking  whether  a  file  already  exists 

Variable  name:  kl 

Description:  sets  input  -  output  status 

Variable  name.  11 
Common  blocks:  'spec.rgrid' 

Subroutines:  'rcreate',  Tread',  Tsave',  'rcheck' 

Description:  number  of  columns  in  grid 

Variable  name:  jj 
Common  blocks:  'spec.rgrid' 

Subroutines:  'rcreate'.  Tread',  Tsave’,  'rcheck' 

Description:  number  of  rows  in  grid 

Variable  name:  I 
Description:  counter 

Variable  name:  j 
Description:  counter 


Variable  name:  Ig  (15,15) 

Common  blocks:  'spec.rgrld' 

Subroutines:  tread',  'rcreate',  'rrcld',  'rsave' 

Description:  Identifying  integer  (relating  to  'data.n')  for  square  ig(i,j) 


A4.2  Subroutine  'rcheck’  (algorithms  2032b  &  2032c) 

This  subroutine  allows  the  use  to  edit  a  grid  file  and  is  called  by  'rent!'. 

Variable  name:  klO,  kit,  k12,  k13 

Description:  sets  input  -  output  status 

Variable  name:  11 
Common  blocks:  'spec.rgrld' 

Subroutines:  'rcreate',  'rread',  'rsave',  'rcheck' 

Description:  number  of  columns  in  grid 

Variable  name:  j  j 
Common  blocks:  'spec.rgrld' 

Subroutines:  'rcreate',  'rread',  'rsave',  'rcheck' 

Description:  number  of  rows  in  grid 


Variable  name:  t 
Description:  counter 


Variable  name:  j 
Description:  counter 


Variable  name:  1g  ( 1 5, 1 5) 

Common  blocks:  ’spec.rgrid' 

Subroutines:  'rread',  'rcreate',  'rrcid',  'rsave',  'rcheck' 

Description:  identifying  integer  (relating  to  'data.n')  for  square  ig(i,j) 


This  subroutine  saves  the  grid  specifications  and  identifiers  in  a  file 
specified  by  the  user.  It  is  called  by  'rcntl'. 


Variable  name:  ans 
Common  blocks:  'spec.rgrid' 

Subroutines:  'rsave' 

Description:  character  check  variable  set  as  either  y  or  n'  in  response 
to  a  query  from  the  system 


Variable  name:  name 
Common  blocks:  'spec.rgrid' 
Subroutines:  'rsave',  ’rrcid' 
Description:  name  of  output  file 


Description:  a  logical  test  variable  -  testing  if  a  file  exists 

Variable  name:  11 
Common  blocks:  'spec.rgrld' 

Subroutines:  ’rcreate',  'mead',  ’rsave’,  'rcheck' 

Description:  number  of  columns  in  grid 

Variable  name:  j  j 
Common  blocks:  'spec.rgrid' 

Subroutines:  'rcreate',  'rread',  'rsave',  'rcheck' 

Description:  number  of  rows  in  grid 

Variable  name:  1 
Description:  counter 

Variable  name:  J 
Description:  counter 

Variable  name:  1g  ( 1 5, 1 5) 

Common  blocks:  'spec.rgrid' 

Subroutines:  Tread',  'rcreate',  ’rrcid’,  'rsave',  'rcheck' 

Description:  identifying  Integer  (relating  to  'data.n')  for  square  ig(i,j) 


This  subroutine  reads  an  existing  grid  and  is  called  by  'rcntV. 

Variable  name:  name 
Common  blocks:  'spec.rgrid' 

Subroutines:  'rsave‘,  Trad' 

Description:  name  of  output  file 

Variable  name:  fexist 

Description:  a  logical  test  variable  -  testing  if  a  file  exists 

Variable  name:11 
Common  blocks;  'spec.rgrid' 

Subroutines:  Tcreate',  Tread',  Tsave',  ’rcheck' 

Description:  number  of  columns  in  grid 

Variable  name:  j  j 
Common  blocks:  'spec.rgrid' 

Subroutines:  'rcreate',  Tread’,  Tsave',  'rcheck' 

Description:  number  of  rows  in  grid 

Variable  name:  1 
Description:  counter 

Variable  name:  j 
Description:  counter 


Variable  name:  1g  (15,15) 

Common  blocks:  'spec.rgrld' 

Subroutines:  'rread',  'rcreate',  ‘rrcltf,  ’rsave',  'rcheck' 

Description:  identifying  integer  (relating  to  'data.n')  for  square  ig(i,j) 

Variable  name:  kit 
Common  blocks:'spec.rgrid' 

Subroutines:  'rcreate',  'rread' 

Description:  check  variable  used  in  checking  whether  a  file  already  exists 


This  subroutine  controls  the  evaluation  of  RCI  over  a  specified  route  such 
as  that  shown  in  figure  6. 1 7a.  The  subroutine  accesses  RCI  data  files 
created  by  the  BSSS  or  the  VSA52  and  outputs  the  route  evaluation  to  an 
output  file  of  the  users  choice.  Subroutine  ‘tcntr  is  called  by  subroutine 
'link'. 

Variable  name,  name 

Description:  charcter  variable  set  to  the  name  of  the  output  file 
specified  by  the  user  from  a  system  prompt 

Variable  name,  answ  I 
Subroutines:  'tcntr,  'bmsg' 

Des<  'iptton:  character  variable  passed  from  ‘bmsg2\  used  as  a  system 
check  that  the  user  really  means  to  overwrite  an  existing  file 

Variable  name:  fexist 

Description:  a  logical  test  variable  -  testing  if  a  file  exists 

Variable  name:  n 
Common  blocks:  'tinput' 

Subroutines:  'tcntr,  'tred* 

Description:  number  of  nodes  on  specified  route 

Variable  name:  I 
Description:  counter 


Variable  name:  pos(1) 

Common  blocks:  'tinput* 

Subroutines:  'tcntl',  'tred' 

Description:  distance  along  a  route  of  node  number  T.  It  is  read  in 
'tred'  and  passed  into  'tcntl' 

Variable  name:  fd(i) 

Common  blocks:  'tinput' 

Subroutines:  'tcntl',  'tred' 

Description:  Identifying  integer  used  to  access  'data. I',  ’data.2',..'data.i', 
where  T  is  the  node  number.  It  Is  read  in  'tred'  and  passed 
Into  'tcntl' 

Variable  name:  pos(f) 

Common  blocks,  'tinput' 

Subroutines:  'tcntl',  'tred' 

Description:  distance  along  a  route  of  node  number  T.  It  is  read  in 
'tred'  and  passed  into  'tcntl' 

Variable  name:  id(f) 

Common  blocks:  'tinput' 

Subroutines:  'tcntl',  'tred' 

Description:  identifying  integer  used  to  access  'data.  1 ',  data.2',..'data.i', 
where  T  is  the  node  number,  it  is  read  in  'tred'  and  passed 


Variable  name:try(i) 

Common  blocks:  tset’ 

Subroutines:  'tcntl* 

Description:  character  variable  array  containing  the  logical 
sequence  of  'data.n'  files 

Variable  name:  It 

Description:  counter  used  to  read  the  initial  information  from  the 
’data.n'  files  until  the  required  time  't(i)'  is  reached 

Variable  name:  a 

Description:  dummy  variable  used  in  reading  initial  unwanted 
information  from  the  'data.n'  files 

Variable  name:  rci(i) 

Common  blocks:  ’tinput’ 

Subroutines:  'tcntl' 

Description:  rating  cone  index  value  of  node  T 


This  subroutine  asks  the  user  to  specify  a  route  for  the  route  evaluation 
scheme  In  'tredV,  and  in  ’tred2’  an  existing  saved  route  is  read  for  use  in 
’tcntr.  The  number  of  nodes  is  asked  for  and  for  each  node:  distance  along 
the  route,  identifying  interger  and  time. 

Variable  name:  name 

Description:  charcter  variable  set  to  the  name  of  the  output  file 
specified  by  the  user  from  a  system  prompt 

Variable  name:  answ  I 
Subroutines:  'tcntr,  'bmsg' 

Description:  character  variable  passed  from  ’bmsgZ,  used  as  a  system 
check  that  the  user  really  means  to  overwrite  an  existing  file 

Variable  name:  fexist 

Description:  a  logical  test  variable  -  testing  if  a  file  exists 

Variable  name:  n 
Common  blocks:  ’tinput’ 

Subroutines:  ’tcntr,  ’tred’ 

Description:  number  of  nodes  on  specified  route 

Variable  name:  I 
Description:  counter 


Variable  name:  pos(1) 

Common  blocks:  'tlnput' 

Subroutines:  'tcntr,  tred* 

Description:  distance  along  a  route  of  node  number  T.  It  is  read  in 
'tred'  and  passed  into  'tcntr 

Variable  name:  1d(l) 

Common  blocks:  tlnput' 

Subroutines:  'tcntr,  'tred' 

Description:  Identifying  integer  used  to  access  'data,  r,  'data.2’,..'data.i', 
where  'i'  is  the  node  number.  It  is  read  in  'tred'  and  passed 
into  'tcntr 

Variable  name:  pos(1) 

Common  blocks:  'tinput' 

Subroutines:  'tcntr,  'tred' 

Description:  distance  along  a  route  of  node  number  T.  It  is  read  in 
'tred'  and  passed  into  'tcntr 

Variable  name:  id(1) 

Common  blocks:  'tinput' 

Subroutines:  'tcntr,  'tred' 

Description:  identifying  integer  used  to  access  data.  1 ',  'data.2',..'data.i', 
where  'i'  is  the  node  number.  It  is  read  in  'tred'  and  passed 


The  following  FORTRAN  code  is  listed  in  alphabetical  order  of  subroutine 
names.  The  following  system  has  been  used  to  Identify  subroutines  with 
greater  ease:- 

BSSS  -  all  start  with  b' 

V5A52  -  all  start  with  V 

Optimum  route  and  grid  -  all  start  with  T’ 

Route  Evaluation  -  all  start  with  T 


m 


v  V  V  v 


c 

C************** ***************** ********************* 

c 

C  SUBROUTINE  BALTER 
c 

c*********************************** ***************** 
c 

subroutine  baiter 
C 
C 

c  This  subroutine  adjusts  those  varibles  in  'bevapor'  which  are  input  to 
c  the  BRISTOL  SOIL  STRENGTH  SCHEME  in  inappropriate  but  user  friendly 
c  units:-e.g.  temperatures,  slope  angles  and  surface  azimuths, 
c  Created  by  J.E.  Cochrane 

c  at  the  Geography  Department,  University  of  Bristol,  England, 
c  June,  1987. 
c 
c 

c  'baiter '  is  called  by  'bcntl' 
c 

include  ' spec . bf our ' 
include  ' spec . btwo ' 
write ( 14 ,  * ) '  alter ' 
do  116  j-l,max(l) 

116  yyy(j,l)-yyy(j,i) +273.15 
do  117  j«l,max(2) 

117  yyy(j ,2)-yyy(j ,2) *0.01 
do  118  j-l,max(4) 

118  yyy(j,4)-yyy(j,4)+273.i5 
do  119  j«l,max(6) 

119  yyy(j,6)»yyy(j,6)*ioo.o 
slope«slope*3 . 14159/180 . 0 
surfacaz*surfacaz*3 . 14159/180 . 0 

i-1 

goto  9935 

9936  if (i.gt.6)  goto  9934 
9935  imax-max(i) 

j-1 

goto  9932 

9933  if (j .eq.imax)  goto  9931 

9932  fmm(j,i)«(yyy(j+l,i)-yyy(j,i) )/ (xxx( j+1, i) -XXX(J,I) ) 
bbb(j,i)-yyy(j  ,i)-fmm(j,i)  *xxx(j,i) 

j-j+1 

goto  9933 
9931  i-i+1 

if (i.eq. 5)  i«6 
goto  9936 

9934  CONTINUE 
return 
end 


no  oo 


c ***************************************************** 
c 

C  SUBROUTINE  BCI 
c 

c************************************ ****** *********** 
c 

subroutine  bci 
c 
c 

c  This  subroutine  calculates  the  variable  part  of  the  RCI  equation 
(Cochrane) 

c  in  the  BRISTOL  SOIL  STRENGTH  SCHEME, 
c  Created  by  J.E.  Cochrane 

c  at  the  Geography  Department,  Bristol  University,  England, 
c  April,  1987. 
c 
c 

c  'bci'  is  called  by  /binfil/ 
c 

include  ' spec. bout' 
include  ' spec . bthree ' 


e3- (ua+uw) *tan (phib) 
s3*(el-e2+e3) *e4 
sum»(sl*s2) -s3 
ci-sum 
rci»sum 


return 

end 


c ****************************************************** 

c 

c  SUBROUTINE  BCNTL 

c 

c****************************************************** 

c 

subroutine  bcntl 
c 
c 

c  This  subroutine  controls  the  BRISTOL  SOIL  STRENGTH  SCHEME, 
c  Created  by  J.E.  Cochrane 

c  at  the  Geography  Department,  University  of  Bristol,  England, 
c  September,  1987. 
c 
c 

c  'bcntl'  is  called  by  'link' 
c 

c  'bcntl'  calls  'bmenu'  for  editing  input  files 

c  'bcntl'  calls  'breadl',  'bread2',  'bschars',  'bsoilbd',  'bsmcurv', 
c  'bhydcon',  'baiter',  &  'binfil' 

c 

character  ans*l 
character  miss (30) *10 
logical  fexist 
include  'spec.bchar' 
include  'spec.bgmd' 
include  'spec.bman' 
include  'spec. bone' 
include  ' spec . bdat2 ' 
include  ' spec . bset ' 
c 

open ( 9 , file* ' smcurv ' ) 
il-1 
ival-1 
k-2 
c 

c  'bmenu'  offers  the  user  the  choice  of  either  editing  an  input  file 
c  running  the  scheme, 
c 

call  bmenu 

if (ii.eq.4)goto  100 

iset*0 

2  write (6,*) 'WHICH  DATA  FILE  IS  TO  RUN?' 
read ( 5 , * ) miss ( il ) 

inquire ( file-miss (il) , name-miss (il) , exist-f exist) 
if (.not. fexist) call  bmsgl 
if (.not. fexist) goto  2 

5  write (6,*) 'OUTPUT  FOR  THIS  RUN  WILL  BE  IN  data.',ival 

write (6,*) ’ALL  OUTPUT  FILES  ARE  data.n,  WHERE  n  MAY  BE  CHANGED' 
bf ile ( il ) -nset ( ival ) 

write ( 6 , * ) ' DO  YOU  WISH  TO  CHANGE  n?  y  or  n' 
read ( 5 , * , err-5 ) ans 
if (ans.ne. 'y')goto  3 
4  write (6,*) 'INPUT  VALUE  FOR  n  1-30' 
kl-l 

read ( 5 , * , iostat-kl , err-4 ) ival 
bf ile ( il ) -nset ( ival ) 
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3  write (6, *) 'DO  YOU  WANT  TO  MAKE  ANOTHER  RUN?  y  or  n' 
il-il+1 
ival-ival+l 
kl«l 

write(14,*) 'bfile' ,bfile(il) 

read (5,*, iostat-kl , err- 3 ) ans 

if (ans.eq. 'y' )goto  2 

icount*il-l 

do  90  il-l,icount 

open (2, file-miss (il) ) 

rewind  2 

if (iset.ne. 1) call  breadl 
c 

c  To  facilitate  the  stochastic  variation  of  the  soil  parameters 
c  the  nag  routine  gOccf  is  used  to  randomly  initialise  the  other  nag 
routines 
c 

call  g05ccf 
do  10  j-l,nos 
c 

c  'bschars'  searches  an  existing  data  bank  for  the  mean  and  s.d. 
c  of  those  soil  parameters  to  be  calculated  by  stochastic  variation, 
c 

call  bschars 
write(14f*) #sr',sr(j) 
c 

c  'bsoilbd'  calculates  the  soil  bulk  density  and  the  basic  10  point 
c  suction  moisture  curve, 
c 

call  bsoilbd 
write (14,*) 'soilbd' 
do  20  i-1,9 

ax(j,i)-aax(j,i) 
write(14,*)ax(j ,i) 

y(j,i)*y(i,i) 

20  CONTINUE 
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c  set  the  end  points  of  the  suction  moisture  curve  ' 

c  • 

ax(j,10)-sr(j) 

y(j,10)-bp(j)*10.18  SSftfrfc 

c 

c  -'tt-sC'’ 

c  'bsmcurv'  calculates  a  20  point  suction  moisture  curve  at  equal  moisture^rV^V^ 
c  intervals.  • 


call  bsmcurv 
write ( 14 , * ) ' smcurv ' 

do  30  i-1,20 

x(j,i)«xnew(j,i) 
y ( j  t i)-ynew( j , i) 
wr ite (9,*)i,x(j,i) ,y(j,i) , j 
30  CONTINUE 


c  'bhydcon'  calculates  the  soil  moisture  characteristic  curve  O-K. 


o  o 


call  bhydcon 
c  call  bprintl 
10  CONTINUE 
c 

if (iset.eq.O)call  bread2 
c 

idays*days 

c 

c  'baiter'  adjusts  those  variables  in  'bevapor'  which  are  input  in 
c  user  friendly  units, 
c 

call  baiter 
c 

c  'binfil'  calculates  the  movement  of  water  throuth  the  soil  profile 
c  'binfil'  also  controls  the  evaporation  calculation  and  RCI. 
c 

call  binfil 
close (2) 

90  CONTINUE 


100  stop 


C******* **************  ****** ************* 

c 

c  CONE  SUBROUTINE 
c 

C******************* ********* ************* 

subroutine  bcone 
c 
c 

c  This  subroutine  calculates  the  parts  of  the  RCI  equation  (Cochrane) 
c  which  are  depentent  on  only  the  soil  parameters  in  the  BRISTOL  SOIL 
C  STRENGTH  SCHEME, 
c  Created  by  J.E.  Cochrane 

c  at  the  Geography  Department,  University  of  Bristol,  England, 
c  April,  1987. 
c 
c 

c  'bcone'  is  called  by  'binfil' 
c 

include  ' spec . bthree ' 
include  'spec. bout' 
c 
c 

real  m 

alpha- (22*2*alpha)/ (7*360) 
phi- (22*2*phi)/ (7*360) 
phib»(22*2*phib)/ (7*360) 
m-(4*sin(phi) )/ (3* (l+sin(phi) ) ) 
bl- (tan (alpha) +tan (phi) ) *tan(alpha) *8 
al-l-m 
a2-2-m 
a3-3-m 

b2-d*d*al*a2*a3 
b3-(gg* (1/tan (phi) ) ) **m 
b4- (gamma) **al 
Sl-(bl*b3*b4)/b2 
c 

dl-( (c/gamma) *(l/tan(phi) )+aal+zz) **a3 
d2*( (c/gamma) * (1/tan (phi) ) +zz) **a3 
d3-( (c/gamma) *( l/tan (phi) )+zz) **a2 
d3-d3*a3*aal 
s2-dl-d2-d3 
c 

el-c*tan (alpha) *( 1/tan (phi) ) 
e2-ua*tan(phi) 

e4«(4*aal*aal*tan (alpha) )/ (d*d) 
c 

876  CONTINUE 
return 
end 


no  no 


c********************************** ******** ************ 
c 

C  SUBROUTINE  BEVAPOR 
C 

C************************ ******************* *********** 

c 

subroutine  bevapor 
c 
c 

c  This  subroutine  calculates  the  evaporation  of  a  surface  from  a 
c  non-isothermal  equation  (Khale,A.B.)  developed  for  use  by  the 
c  U.S.  Corps  of  Engineers  (Balick,M.  et  al.).  It  is  used  in  the 
C  BRISTOL  SOIL  STRENGTH  SCHEME. 

C 

c  Original  by  Balick,  M.  et  al. 
c  Adapted  by  J.E.  Cochrane 
c  November,  1986. 
c 
c 

c  'bevapor'  is  called  by  'binfil' 
c 

include  'spec.bsix' 
include  'spec.btwo' 
include  'spec. bout' 
include  ' spec. bf our' 


dimension-  clr(8) 

esat (ta) -6. 108*exp(ac* (TA-273 . 15)/ (TA-bc) ) 
to  INITIALIZE-VAriableS-and-CONSTANTS 

data  Clr/O. 04, 0.08, 0.17, 0.20, 0.22, 0.24, 0.24, 0.25/ 
data  acl/82 .2,87.1,52.5,39.0,34.7,23.8,11.2,15.4/ 
data  bcl/. 079, .148, .112, .063, .104, .159, -.167, .028/ 
data  sigma,pi,ac,bc/8. I2e-ll, 3 . 141593 , 

&  17.269,35.86/ 

data  cc/ 0,261/ 

data  last, grav,ksq, cp/24, 980. 0,0. 16, 0.24/ 

day»days+if ix(tyme/24 .0) 

tyme-tyme- (day-days ) *24 . 0 

bb—  2 . 4E-4 

ieof-0 

ibug-0 

all-0.040 

facth-( 1000. /press) **0.286 
t0-2.0*pi* (day-1. 0)/365.0 

decl— 0 . 0C6918-0 . 399912*cos (tO) +0 . 070257*sin (tO) 

&-0 . 006758*cos (2 . 0*t0) +0 . 000907*sin ( 2 . 0*t0) -0 . 002697*cos (3 . 0*t0) 
i+0. 001480*sin(3 . 0*t0) 
elf«(lat/180*pi) 
timer- ( tyme/ 1 2  *p i ) +p i 
if (timer .gt . 2 . *pi) timer-timer-2 . *pi 
aa-cos(decl) *cos(elf) *cos (timer) 
bb-sin(decl) *sin(elf ) 
c-aa+bb 
zim-acos(c) 


TO  SOLVE-SOLAR-AZIMUTH 


xnum—  cos(decl)  *sin (timer) 

xdnom-cos(elf ) *sin(decl)-sin(elf) *cos(timer) 
saz-atan ( xnum/ xdnom ) 

if (.not. (xnum. It. 0.0. and. xdnom.gt. 0.0) )  goto  9944 
saz-saz+pi 
goto  9945 

9944  if (.not. (xnum. gt. 0.0. and. xdnom.gt. 0.0) )  goto  9943 

saz-saz-pi 
9943  CONTINUE 

9945  CONTINUE 

C - 

C  to  CALCULATE-SLOPE-ATMOS -ATTEM-AND-CLOUD- ADJUSTMENTS 
C 

sicf-cos ( zim)  *co8 ( slope)  +sin ( zim)  *sin (slope ) 

6  *cos (saz-surfacaz) 

if (.not. (sicf.lt. 0.0. or. cos(zim) .le. 0.0) )  goto  9941 
sun-0 . o 
goto  9942 

9941  m-l/cos(zim) 

if (.not. (m.ge.0.0) )  goto  9939 
tal-o. 02023 

if (day. ge. 92.0  .and.  day.le.152.0)  tal— 0.02290 
xn-amod ( tyme , 24 . ) 
ntabl-1 

assign  30  to  i9930 
goto  9930 
30  ta-yn 
ntabl-2 

assign  40  to  i9930 
goto  9930 
40  rh-yn 

td— 282.7 

water-exp (0.07 07 4* (td-273 . 15)+tal) 
ab-0.271* (water*m) **0.303 
a0-0. 085-0. 247*alogl0 (press/1000. *l./m) 
argl-(l.-alb)  *cos(zim)  * (l.-ab)  *0. 349+(l.-a0)  *  (1.  -  all) 
&  (l.-a0*0.2)*0.651*cos(zim) 
goto  9940 

9939  argl-1.0 

9940  qp-2.0*argl 

qo-qp*sicf 

if (.not. (ncloud.eq.0) )  goto  9937 

sun-qo 

goto  9938 

9937  xn-amod (tyme, 2 4.0) 
ntabl-3 

assign  10  to  i9930 
goto  9930' 

10  cloud-yn 

arg2—  (bcl  (ncloud) -.  059)  *m 
ctf- (acl (ncloud) /94 . 4 ) *exp (arg2 ) 
sun-qo- ( (cloud*cloud) * (qo-qo*ctf ) ) 

9938  CONTINUE 

9942  CONTINUE 
goto  9879 

9930  CONTINUE 


TO  GET-TABLE-VALUES 


imax* max ( ntabl ) 
ij-1 

if ( .not. (xn.ge. xxx (imax, ntabl) ) )  goto  9928 
yn-yyy ( imax , ntabl ) 
goto  9929 

9928  if (ij .eq.imax+1)  goto  9927 

jj-ij 

if (.not. (xxx(ij , ntabl) .lt.xn) )  goto  9925 

ij-ij+1  ' 

goto  9926 

9925  if ( .not. (xxx(ij , ntabl) .eq.xn) )  goto  9924 

yn-yyy (jj, ntabl) 
ij*imax+l 
goto  9926 

9924  if ( .not. (xxx(ij , ntabl) .gt.xn) )  goto  9923 

yn-fmm ( j  j , ntabl ) *xn+bbb ( j  j , ntabl ) 
ij*imax+l 
9923  CONTINUE 

9926  goto  9928 

9927  CONTINUE 

9929  goto  i9930 


9879  CONTINUE 

to  ATMOSPHERIC-INFRARED- EMISSION-ATERM 
t-tyme 

xn-amod(t,24.0) 
ntabl *2 

* 

GET-TABLE-VALUES 
assign  9867  to  i9930 
goto  9930 

I 

9867  rh-yn 

xn-amod (t , 24.0) 
ntabl«l 

i 

GET-TABLE -VALUES 
assign  9866  to  i9930 
goto  9930 

9866  ta*yn 

xn-amod (t , 24 .0) 
ntabl*3 

i 

GET-TABLE-VALUES 
assign  9865  to  i9930 
goto  9930 

t 

9865  cloud«yn 
tak»ta 

tac- ( tak- 2  73.15) 

ea«6 . 108  *rh*exp ( ( ac*tac ) / ( tak-bc ) ) 
alphi-( 0.61+0. 05*sqrt (ea) ) * (1. 0+ (clr (ncloud) * (cloud**2) ) ) 
downir«0.8132e-10*tak**4*alphi 


to  CALCULATE - CO NVE CT I  ON  -  HTERM 
xn-amod (t, 24.0) 
ntabl-4 

assign  20  to  i9930 
goto  9930 
20  teml-yn 

if ( .not. (teml .gt.ta) )  goto  9863 

xn-amod (t,  24 . 0) 
ntabl-6 

GET-TABLE-VALUES 
assign  9862  to  i9930 
goto  9930 

t 

9862  speed-yn 
tak-ta 
zash-za 
tsk-teml 

rhoa—0. 001*0. 348*press/tak 

thetaz-tak* f acth 

thetas-t sk* f acth 

dtheta-  ( thetaz -thetas)  /zash 

du-speed/ zash 

theuav- ( thetaz+thetas) /2 . 0 

ri-grav*dtheta/ (thetav*du**2 ) 

coel-15 . 0 

coe2-1.175 

ex-. 75  * 

if (tsk.gt.tak)goto  31 

if (ri.gt. 0.2) ri-. 19999 

coel-5.0 

coe2»1.0 

ex-2 . 0 

31  hter-rhoa*ksq*zash**2*du 
&* (coe2* (1. 0-coel*ri) **ex) 
hterm-hter*cp*dtheta 


C  to  CALCULATE-EVAPORATIVE-HEAT-LOSS-DTERM 
C 

if (.not. (teml. gt.ta) )  goto  9860 

xn-amod ( t , 2  4 . 0 ) 

ntabl-2 

GET-TABLE-VALUES 
assign  9859  to  i9930 
goto  9930 

9859  rh»yn 

xn-amod (t; 24 .0) 
ntabl»l 

GET-TABLE-VALUES 
assign  9858  to  i9930 
goto  9930 


9858  ctema-yn 

ktempa— ctema 


ctema-ctema-273 . 15 
ktempg-teml 

es-exp( (ac*(ktempg-273 . 15) )/ (ktempg-bc) ) *6.1071 
ea*exp( (ac*ctema)/(ktenpa-bc) ) *6. 1071*rh 
dg->0 . 622/press* (ea-es) *wet/za 
xl“597 . 3-0 . 566* (Ctema+ktempg-273 . 15) /2 . 0 
dterm-hter *xl *dg 
evap— ( (sun+downir) -hterm) /xl 
e vap-evap/ 6000 . 

898  CONTINUE 
return 
9860  evap»0. 
return 


non  a  n 


c ******************************************************* 
c 

c  SUBROUTINE  BHYDCON 
C 

c********************** ********************* ************ 
c 

subroutine  bhydcon 


This  subroutine  calculates  hydraulic  conductivity  for  each  layer 
from  the  given  soil  moisture  characteristic  curve. 

Uses  the  Millington  and  Quirk  method 

e  Original  by  S.  Howes 
c  Adapted  by  J.E.  Cochrane 

c  at  Geography  Department,  University  of  Bristol,  England, 
c  November,  1986. 
c 
c 

c  'bhydcon'  is  called  by  'bcntl' 
c 

include  '  spec .  bgmd ' 
include  ' spec. bf our' 
include  ' spec . bman ' 
do  845  i-1,20 
iij-20-i+l 
xii«x(j,iij) 
tops»0 . 
bots*0 . 

do  846  k*=l,20 

jf«20-k+l 

if (yj j .le.OJyj j=l 

846  *ots« ( (2*k-l) *yj j** (-2) ) +bots 

ii 

0  847  k-ii,20 
jf«2C-k+l 
if (yjj-le.O)yjj-i 

847  tops«( (2*k+l-2*i) *yj j** (-2) ) +tops 

jt-20-i+l 

845  z ( j , jt)«satcon( j ) * (x( j , ii)/ 

&  sr ( j ) ) *tops/bots 
return 
end 


C******************* ****** ****************** ************* 

c 

c  SUBROUTINE  BINFIL 
c 

c********************************* *************** ******** 
c 

subroutine  binfil 
C 
c 

c  This  subroutine  calculates  the  flow  of  water  through  a' soil  profile, 
c  Values  of  suction  are  passed  out  to  calculate  the  RCI  in  the  BRISTOL 
c  SOIL  STRENGTH  SCHEME, 
c  Uses  Richard's  Equation. 

c  Calls  a  non-isothennal  evaporation  algorithm, 
c  Original  M.G.  Anderson 
c  Adapted  by  J.E.  Cochrane 

c  at  the  Geography  Department,  University  of  Bristol,  England, 
c  December,  1986. 
c 
c 

c  'binfil'  is  called  by  'bcntl' 
c 

c  'binfil'  calls  'bread3' 
c  'binfil'  calls  'bcone' 
c  'binfil'  calls  'bevapor' 
c  'binfil'  calls  'bci' 
c 

character-  nam*10 
include  'spec.bchar' 
include  ' spec . btwo ' 
include  'spec.bthree' 
include  'spec.bgmd' 
include  ' spec . bman ' 
include  'spec.bfive' 
include  'spec. bout' 
include  ' spec. bf our' 
include  ' spec . bset ' 
c 
c 
c 

write (14,*) 'il',il 

write (14,*) 'bfile' ,bfile(il) 

nam-bf ile ( il) 

write (14,*) 'nset' ,nset(il) ,il 
open(13,file«*nset(il) ) 
open (9, file«nam, err-900) 
c 

write(14,*) 'infil' 
if (iset.eq.O)call  bread3 
pqr-999 
nll»nl+l 
rainl-0 . 0 
nq-20 
nq-nq-1 
nmi«l 


tf (iz,i)-(tf(iz,i)*sr(iz))/100 
theta(i)«tf (iz,I) 

823  vrite(l4, *) 'theta' ,theta(i) , i 
cumdm-0 . 
cinfil»o. 
sumd“0 . 
icount  >0 
br^amr-alr 

sog (1) -theta (l)/sr (1) 
su“theta ( 1 ) 

colin«exp(4.605+((2.123+.008*cp(l)-.693*alog(su*72.59) )/ 

&  ( . 149+. 002*cp(l) ) ) ) 

1051  FORMAT (  •  COLLiNS  rci  *  ',F10.4) 

tr»exp(al+bl*alog(theta(l)*72.59) ) 

1112  FORMAT  (F4 . 2 , F6 . 4 ,  F14 . 12 , F6 . 4 ,  F14 . 12 ) 
dist ( 1) -tcom(l) /2 
rtot“0 . o 
pptt«0.0 
anf ilt»0 . 
tg»0.0 

depth (1) -dist (1) 
do  5  i“2,nl 
anflux(i)“0. 0 
c 

C  ***  CALCULATES  TOTAL  DEPTH  (depth)  TO  MID  POINT  OF  CELL 

C_ 

depth (i) “depth (I-l)+0. 5* (tcom(I-l)+tcom(i) ) 

c 

a  ***  CALCULATES  DISTANCE  (dist)  BETWEEN  MIDPOINTS  OF  EACH  CELL 
C 

5  dist(i)“0.5*(tcom(I-l)+tcom(i) ) 
itmax“immax*3600/af 
wati-0 . 
do  478  i«l,nl 
c 

C  ***  CALCULATES  TOTAL  COLUMN  WATER  CONTENT 
c 

478  wati“tcom(i) *theta(i)+wati 
evapi»0 . 
do  261  i“l,nq 
c 

c  ***  CALCULATES  GRADIENT  OF  SUCTION  -  MOISTURE  CURVE  (g) 

C  AND  SOIL  -  MOISTURE  CHARACTERISTIC  CURVE  FOR  EACH  LAYER 
C 

g(i)-(y(l,i+l)-y(l,i))/(x(l,i+l)-x(l,i)) 

261  gz(i)"(z(l,i+l)-z(l,i) )/(x(l,i+l)-x(l,i) ) 
do  262  i“i,nq 

g3(i)-(y(3,i+l)-y(3,i))/(x(3,i+i)-x(3,i) ) 
gz3(i)“(Z(3, i+l)-z(3,i) )/(x(3,i+l)-x(3,i) ) 
g2 (i)**(y (2‘, i+l) -y (2 , i)  )/(x(2,i+i)-x(2,i) ) 

262  gz2 (i)“(z (2 , i+l) -z(2,i))/(x(2, i+l) -x(2 , i) ) 
phib“25.0 

call  bcone 
open (11, file*'swr' ) 
write ( 11 , * ) ' swr  opened ' 
write(ii,*)y(i,20) 

UW“(y (1, 20) *100)/ (2.54) 

.  call  bci 


rci-ci*0.7 

write(14,*)y(l,20) ,rci 
uw*0 . 0 
call  bci 
rci«ci*0.7 

write (14,*) 'min  rci',rci 

write (11,*) 'phi' , phi 

do  777  ja-1,3 

do  776  ia*l,20 

uw*(y ( ja, ia) *100)/ (2 . 54) 

call  bci 

write (11, *)x(ja,ia) ,ia, ja,ci,y ( ja, ia) 

776  CONTINUE 

777  CONTINUE 

write (14,*) 'itmax' , itmax, ' imnax' , iramax 
do  410  ii*l, itmax 
do  10  i«l,nl 
c 

C  ***  CALCULATES  VOLUMETRIC  WATER  CONTENT  (vol)  OF  EACH  CELL 
c 

10  vol (i)*tcom(i) *theta(I) 
icount*icount+af 
tg*tg+af 
t-ii 

nlaa-nlal+1 

nlab-(nlal+nla2+l) 

c 

C  ***  THE  NEXT  SECTION  CALCULATES  SOIL  WATER  POTENTIAL  (sw) 

C  I.E.  SUCTION,  HYDRAULIC  POTENTIAL  (hpot)  AND 

C  CONDUCTIVITY  (cond)  FOR  EACH  OF  THE  SOIL  WATER  CONTENTS 

c  (theta)  FOR  EACH  CELL  AT  EACH  TIME  ITERATION 

c 

do  15  i«l,nlal 
do  16  j-l,nq 

if (theta (i) .ge.x(l, j) .and. theta (i) . lt.x(l, j+1) ) 

&swp(i)«y(l, j)+g(j)*(theta(i)-x(l, j) ) 

16  CONTINUE 

hpot  (i)  -swp  (i)  -depth  (i) 
do  17  j«l,nq 

if (theta (i) .gt.x(l, j) . and. theta (i) . le.x(l, j+1) ) 

&  cond(i)*z(l, j)+gz(j) * (theta (i) -x(l, j) ) 

17  CONTINUE 
15  CONTINUE 

do  515  i-nlaa , nl 
do  516  j«l,nq 

if (theta (i) .ge.x(2, j) . and. theta (i) . lt.x(2, j+1) )  swp(i)= 

&  y(2, j)+g2(j)*(theta(i)-x(2, j) ) 

516  CONTINUE 
hpot(i)-swp(i) -depth(i) 
do  517  j«l,nq 

if (theta(i) .gt.x(2, j) .and.theta(i) .le.x(2, j+1) )  cond(i)= 

&  z (2 , j ) +gz2 ( j ) * (theta (i) -x(2 , j ) ) 

517  CONTINUE 
515  CONTINUE 

do  615  i-nlab,nl 
do  616  j-l,nq 

if (theta (i) .ge.x(3, j) . and . theta ( i ) .lt.x(3,j+l))  swp(i)=y(3, j) 
&  +g3(j)*(theta(i)-x(3, j) ) 


616  CONTINUE 

hpot  (i)  -swp  ( i)  -depth  ( i) 
do  617  j«l,nq 

if (theta(i) .gt.x(3, j) . and. theta (i) .le.x(3, j+1) )  cond(i)= 

&  z (3 , j )+gz3 ( j) *(theta(i) -x(3 , j ) ) 

617  CONTINUE 
615  CONTINUE 

uw-(swp(l) *100/(2.54) ) 

call  bci 

rcil-ci*0.7 

uv- ( swp ( 2 ) *100)/ (2. 54) 

call  bci 

rci-ci*0.7 

cl  -  exp(4 . 605+ ( (2 . 123+. 008*cp (1) -. 693*alog (theta(l) *72.59))/ 
&  ( . 149+. 002*cp(l) ) ) ) 

c2  -  exp (4 . 605+ ( (2 . 123+. 008*cp(l) -. 693*alog(theta (3) *72.59))/ 
&  ( . 149+. 002*cp (1) ) ) ) 

1110  FORMAT ( '  SOIL  TYPE  -  ',12,'  SATCON  =  ',F14.12) 

1111  FORMAT (F7 «3,F7.4,F7.4, F14 . 9 , 2F10 .  4  ,  F7 . 4  , 2F10 .4) 
tl«t*af/3600. 

rain-0 . o 
aq-amr-alr 
iaq-aq 
ar»l 

do  910  i-l,iaq 

if (ppt(i) .eq.0.0)go  to  910 

j-amr-alr-i 

ai-i 

if (ai.ne.aq.and.ppt(i) .eq.0.0)go  to  910 

ajt-alr+i-1 

ajr-amr-j 

if ( tl . ge . a j t . and . tl . It . a j  r ) rain-ppt (i)/3600.0 
910  CONTINUE 

pptt-pptt+rain*af 

c 

c  ***  CALCULATES  THE  AVERAGE  CONDUCTIVITY  (avcond)  BETWEEN  CELLS 
c 

do  210  i«2,nl 

210  avcond (i)-(cond(i-l) *tcom(i-l)+cond(i) *tcom(i) ) 

&/ (tcom(i-l)+tcom(i) ) 
f  lux  ( nl  1 )  -cond  ( nl ) 

C  hpot ( 0)  —  (hpot ( 1) /3  *2 ) 

c 

C  ***  THE  NEXT  SECTION  CALCULATES  THE  FLOW  (flux)  OF  WATER 
C  BETWEEN  CELLS 

c 

do  220  i-l,nl 

if (dist(i) .eq.0.0)  dist(i)-0.1 
220  flux (i)- (hpot (i-1) -hpot (i) ) *avcond(i)/dist (i) 
c 

c  ***  CALCULATES  THE  INFILTRATION  RATE  (bncap) 
c 

bncap- ( 0. 0-hpot(l) ) *0.5* (satcon(l)+cond(l) )/dist (1) 

sund-(rain-anf ilt) *af+sumd 

rain2-rain 

if (rainl . ne . rain2 ) sumd-0 . 0 
rainl-rain2 

if ( sumd . It . 0 . 0 ) detain-0 . 0 
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detain-sumd 

if (rain. gt. 0.0)  go  to  350 
runof f-0 . 0 

sog(l) -theta (1) /sr ( l) 
tyme-af *t/3600 . 0 
if (detain. le. 0.0)  go  to  330 
call  bevapor 
anfilt-bncap 
flux(l)-anfilt 
go  to  390 
330  anfilt-0.0 
call  bevapor 

c  if (svp(l) .le. (0-10) )evap*0.0 

c 

C  ***  SETS  THE  FLUX  FROM  THE  TOP  OF  THE  COLUMN  TO  THE 
c  EVAPORATION  CALCULATED  IN  bevapor. f 

c 

flux (1) -evap* (-1.0) 
go  to  390 
350  evap-  0.0 

818  FORMAT ( " evap  -  ", F13.ll,"  At  TiME  ",F7.3,"  rain  =  ",F7.5) 
anfilt-bncap 

if ( rain . It . bncap . and . detain . le . 0 . 0 ) anf ilt-rain 
flux (1) -anf ilt 

if (detain. It. detcap)  go  to  390 
sumd-detcap 
runoff-0 . 0 
c 

C  ***  CALCULATES  THE  RUNOFF  (runoff)  IN  EXCESS  OF  THE 
c  INFILTRATION  CAPACITY  (bncap) 

c 

if ( rain. gt. bncap) runoff- (rain-bncap>*af 
rtot-rtot+ runoff 
390  CONTINUE 

do  320  i-l,nl 

anf lux ( i ) -flux ( i ) -flux (i+1) 
anflux(i)-anflux(i) *af 
c 

C  ***  THE  NEXT  SECTION  UPDATES  THE  WATER  CONTENT  OF  EACH  CELL 
c  AND  THEN  CHECKS  EACH  CELL  TO  ENSURE  THAT  THERE  IS  NOT 

C  MORE  THAN  100%  SATURATION 

c 

theta ( i ) - ( vol ( i ) +anf lux ( i ) ) /tcom ( i ) 
if (theta(i) .gt.sr(l) .and. i. le.nlal) theta(i)=sr (1) 
if (theta ( i j . gt . sr ( 2 ) . and . i . gt . nlal . and . i . le . nlab) theta ( i ) =sr ( 2 ) 
if (theta (i) .gt.sr(3) . and.i.gt.nlab) theta(i)-sr(3) 

320  CONTINUE 
c 

c  ***  THE  NEXT  SECTION  CUMULATES  THE  DRAINAGE  AND  EVAPORATION 
c  INTO  HOURLY  CHECK  TOTALS 

c 

cumdrn-cumdrn+ flux (nil) *af 

evapi-evap*af+evapi 

cinfil«cinfil+anfilt*af 

if (icount.ne. 3600)  go  to  410 

icount-0 

t-t*af/3600 

c  write(09, llll)t,sog(l) ,theta(l) ,swp(l) , rcil,cl,theta(2) ,rci,c2 


write  (9,  *)  rcil,evapi,cumdrn,cinfil 
434  FORMAT (/// ) 

834  FORMAT ( ’  TRAFFICABILITY  PREDICTIONS  ****'/'  SURFACE  STRENGTH 
&  «',F10.3/'  RATING  CONE  INDEX  -',F10.3,'  REL.  SAT  =',F10.6/) 
if (tg.eq. 86400. 0)tg»0.0 
nlac-nlab-1 
do  815  i-l,nlal 

815  sog (i) -theta (i)/sr(l) 
do  816  i-nlaa,nlac 

816  sog(i)«theta(i)/sr(2) 
do  817  i-nlab,nl 

817  sog(i)-theta(i)/sr(3) 
write ( 14 , * ) rcil 
write ( 14, *)rcil 

503  FORMAT ( 7  RUNOFF  TOTAL  «',F10.7,'  IN  THE  LAST  HOUR'///) 
rtot-0 . 0 
watn-0 . 
do  479  i-1 , nl 

479  watn-tcom(i) *theta(i)+watn 

bal-watn-wati-cinf  il+evapi+cuindm 
bal- (bal*100 . ) /watn 

232  FORMAT ( '  BALANCE  CHECK  AS  %  COL.  WATER  VOL.  =',F16.10,'  %'/) 

481  FORMAT ( '  BALANCE  CHECK  ON  PROFILE  WATER  STATUS  «',F12. 7) 

611  FORMAT ( '  CUMULATIVE  PRECIP  -  ',F8.4) 

410  CONTINUE 

415  FORMAT (i6,6F14. 9) 

500  FORMAT ('  ****  TIME  FROM  START  «' , F7 . 3 , 'HOURS' ) 

610  FORMAT ( ' EVAPORATION- ' , F13 . 11 ) 

502  FORMAT ('  *  LAYER  **  DEPTH  **  SOIL  WATER  **  MOISTURE  **  HYD 
&ND  **  NET  FLUX  **  REL  SAT  **') 

60  FORMAT ( '  CUM.INFIL  »',F10.6,'  CUM.  DRAIN.  , F10 . 6////) 

if(t.ge.lO)  go  to  897 
99  CONTINUE 
898  CONTINUE 
897  close (9) 

900  write(14,*) 'at  900  in  binfil.f' 
return 
end 


c****************** ************************** *********  *** 
c 

c  SUBROUTINE  BMENU 
C 

c******************************************* ************* 
c 

subroutine  bmenu 
c 
c 

c  This  subroutine  allows  the  user  to  create  and  edit  input  files 
C  for  the  BRISTOL  SOIL  STRENGTH  SCHEME 
c  Created  by  J.E.  Cochrane 
c  Date  October  1987 

c  at  Geography  Department,  Bristol  University,  England, 
c 

c  'bmenu'  is  called  by  'bcntl' 
c  'bmenu'  calls  'bview'  and  'bread' 
c 

character  name*20 
character  answ*l 
logical  fexist 
include  ' spec . bone ' 
include  'spec.btvo' 
include  'spec.bthree' 
include  'spec.bgmd' 
c 

1  write(6,*) 'MENU  SELECTION' 

write ( 6 , *0 ' 1 •  CREATE  A  NEW  DATA  FILE' 
write(6,*) '2.  CHANGE  AN  EXISTING  DATA  FILE' 
write <6, *) '3 .  RUN  BRISTOL  SSS' 
write ( 6 , * ) ' 4 .  EXIT  WITHOUT  A  RUN' 
kl-1 

read ( 5 , * , iostat-kl , err-1 ) ii 
goto (5, 430, 1000, 1010) ii 
goto(5,430, 1000, 1000) ii 
5  kl-1 

10  write (6,*) 'INPUT  NUMBER  OF  LAYERS' 
write(6,*) 'PRESENT  VALUE  IS  ',nos 
read ( 5 , * , iostat*kl , err- 1 0 ) nos 

if ( jr.gt.o)goto  435 

11  write(6,*) 'INPUT  TOPOGRAPHIC  A/S  VALUE  e.g.  FLAT  -  1.0' 
write(6,*) 'SLOPE  -  1.2,  VALLEY  BOTTOM  -  0.8' 

write ( 6 , * ) ' PRESENT  VALUE  IS  ',aos 
kl-1 

read ( 5 , * , iostat*kl , err- 11 ) aos 
if (jr.gt.O)goto  435 
15  do  25  i-l,nos 

20  write (6,*) 'INPUT  SOIL  TYPE  FOR  LAYER ',i 
write(6,*) 'PRESENT  VALUE  IS  ',isty(i) 
kl-1 

25  read(5,*,iostat-kl,err-20) isty(i) 
if (jr.gt.O)goto  435 
27  do  35  i-l,nos 

30  write (6,*) 'INPUT  ORGANIC  MATTER  %  FOR  LAYER  ',i 
write(6,*) 'PRESENT  VALUE  IS  ',op(i) 
kl-l 

3  5  read ( 5 , * , iostat-kl , err*3  0 ) op ( i ) 


o  o 
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if (jr.gt.O)goto  435 

40  write (6,*) 'INPOT  SLOPE  ANGLE  IN  DEGREES  ' 
write(6,*)  ' PRESENT  VALUE  IS  Aslope 
kl  -1 

read ( 5 ,  * , iostat-kl , err—4 0 ) slope 
if (jr.gt.O)goto  435 
45  Write (6,*) 'INPUT  ZENITH  ANGLE  ' 
write(6,*) 'PRESENT  VALUE  IS  ' , za 
kl-1 

read  (5 ,  * ,  iostat-kl ,  err*45)  2  a 
if ( jr.gt.0)goto  435 
50  write (6,*) 'INPUT  CLOUD  TYPE  1..8  ' 
write (6,*) 'PRESENT  VALUE  IS  ',ncloud 
kl-1 

read ( 5 , * , iostat-kl , err-50 ) ncloud 
if (jr.gt.O)goto  435 

55  write (6,*) 'INPUT  BAROMETRIC  PRESSURE  (MILLIBARS)  ' 
write (6,*) 'PRESENT  VALUE  IS  ', press 
kl-1 

read ( 5 , * , iostat-kl , err-55 ) press 
if (jr.gt.O)goto  435 

60  write (6,*) 'INPUT  SURFACE  AZIMUTH  (DEGREES)  ' 
write(6,*) 'PRESENT  VALUE  IS  ',surfacaz 
kl-1 

read ( 5 , * , iostat-kl , err-60 ) surf acaz 
if (jr.gt.O)goto  435 

65  write (6,*) 'INPUT  LATITUDE  OF  SITE  (DEGREES)  ' 
write (6,*) 'PRESENT  VALUE  IS  ',lat 
kl-1 

read ( 5 , * , iostat-kl , err-65 ) lat 
if (jr.gt.O)goto  435 

70  write (6,*) 'INPUT  JULIAN  DAY  OF  RUN  ' 
write(6,*) 'PRESENT  VALUE  IS  ',days 
kl-l 

read ( 5 , * , iostat-kl , err-7  0 ) days 
if (jr.gt.O)goto  435 

71  write(6,*) 'INPUT  ALBEDO  OF  SURFACE  ' 
write (6,*) 'PRESENT  VALUE  IS  ',alb 
kl-1 

read ( 5 , * , iostat-kl , err-7 1 ) alb 
if (jr.gt.O)goto  435 


120  write (6,*) 'INPUT  NUMBER  OF  AIR  TEMPERATURE  OBSERVATIONS  ' 
write(6,*) 'PRESENT  VALUE  IS  ',max(l) 
kl-1 

read ( 5 , * , iostat-kl , err- 12  0 ) max ( 1 ) 
if (jr.gt.O)goto  435 

125  write (6,*) 'INPUT  NUMBER  OF  RELATIVE  HUMIDITY  OBSERVATIONS  ' 
write ( 6 , * ) ' PRESENT  VALUE  IS  ',max(2) 
kl-1 

read (5, *, iostat-kl, err-125) max (2) 
if (jr.gt.O)goto  435 

130  write (6,*) 'INPUT  NUMBER  OF  CLOUD  COVER  OBSERVATIONS  ' 
vrite(6,*) 'PRESENT  VALUE  IS  ',max(3) 
kl-1 


read ( 5 , * , iostat-kl , err-13 0 ) max ( 3 ) 
if ( jr.gt.O)goto  435 

140  write (6,*) ' INPUT  NUMBER  OF  GROUND  TEMP  OBSERVATIONS ' 
write ( 6 , * ) ' PRESENT  VALUE  IS  ',max(4) 
kl-1 

read ( 5 , * , iostat-kl , err- 14  0 ) max ( 4 ) 
if (jr.gt.O)goto  435 

145  write (6 ,*)' INPUT  NUMBER  OF  WIND  SPEED  OBSERVATIONS  ' 
write  ( 6 ,  *)  '  PRESENT  VALUE  IS  ',max(6) 
kl-1 

read (5 ,  * , iostat-kl , err-145 ) max ( 6 ) 
if ( jr.gt. 0)goto  435 

198  do  200  i«l,max(l) 

202  write (6, *) 'INPUT  TIME  OF  AIR  TEMP  OBSERVATION  NO.  ',i 
WT ite( 6, *) ' PRESENT  VALUE  IS  ',XXX(i,l) 
kl-1 

read ( 5 , * , iostat-kl , err-2  02 ) xxx ( i , 1 ) 

210  write (6,*) 'INPUT  AIR  TEMPERATURE  FOR  OBSERVATION  NO. 
write(6,*) 'PRESENT  VALUE  is  ',yyy(i,i) 
kl-1 

200  read ( 5 , * , iostat-kl , err=2 10 ) yyy ( i , 1 ) 
if (jr.gt. 0)goto  435 
215  do  230  i-l,max(2) 

222  write (6,*) 'INPUT  TIME  OF  RELATIVE  OBSERVATION  NO.  ',i 
write(6,*) 'PRESENT  VALUE  IS  ',XXX(i,2) 
kl-1 

read (5 , * , iostat-kl , err-222 ) xxx ( i , 2 ) 

225  write (6,*) 'INPUT  RELATIVE  HUMIDITY  OBSERVATION  NO.  ', 
write(6,*) 'PRESENT  VALUE  is  ',yyy(i,2) 
kl-1. 

230  read ( 5 , * , iostat-kl , err-225 ) yyy ( i , 2 ) 

-  if (jr.gt. 0) goto  435 

231  do  240  i-l,max(3) 

232  write (6,*) 'INPUT  TIME  OF  CLOUD  COVER  OBSERVATION  NO. 
write(6,*) 'PRESENT  VALUE  IS  ',xxx(i,3) 

kl-1 

read (5 , * , iostat-kl , err-232 ) xxx ( i , 3 ) 

235  write(6,*) 'INPUT  VALUE  OF  CLOUD  COVER  OBSERVATION  NO. 
write(6,*) 'PRESENT  value  IS  ',yyy(i,3) 
kl-l 

240  read (5 , * , iostat-kl , err-235) yyy ( i , 3 ) 
if (jr.gt. 0) goto  435 

241  do  250  i-l,max(4) 

242  write (6,*) 'INPUT  TIME  OF  GROUND  TEMP  OBSERVATION  NO. 
write(6,*) 'PRESENT  VALUE  IS  ',xxx(i,4) 

kl-1 

read ( 5 , * , iostat-kl , err=2  4  2 ) xxx ( i , 4 ) 

245  write (6,*) 'INPUT  GROUND  TEMP  OBSERVATION  NO.  ',i 
write(6,*) 'PRESENT  VALUE  IS  ',yyy(i,4) 
kl-l 

250  read ( 5 , * , iostat-kl , err-2 4  5 ) yyy ( i , 4 ) 
if (jr.gt. 0)goto  435 

251  do  260  i-l,max(6) 

252  write (6,*) 'INPUT  TIME  OF  WIND  SPEED  OBSERVATION  NO.  ' 
write(6,*) 'PRESENT  VALUE  IS  ',xxx(i,6) 

kl-1 

read ( 5 , * , iostat-kl , err-2  5  2 ) xxx ( i , 6 ) 


255  write(6,*) 'INPUT  WIND  SPEED  OBSERVATION  NO.  ',i 
writ* ( 6 ,  * ) '  PRESENT  VALUE  IS  ',yyy(i,6) 
kl-1 

260  read (5 , * , iostat-kl , err-255 ) yyy ( i , 6 ) 
if (jr.gt.O)goto  435 

265  write (6,*) 'INPUT  NUMBER  OF  CELLS  IN  THE  VERTICAL  COLUMN  ' 
write ( 6 ,  * )  ' PRESENT  VALUE  IS  ',111 
kl-1 

read ( 5 , * , iostat-kl , err- 2 6 5 ) nl 
do  268  i-l,nos 

267  write(6,*) 'INPUT  NUMBER  OF  CELLS  IN  LAYER  ',i 
write(6,*) 'PRESENT  VALUE  IS  ',nla(i) 

kl-1 

268  read ( 5 , * , iostat-kl , err- 2 67 ) nla ( i ) 
if (jr.gt.O)goto  435 

270  write(6,*) 'INPUT  SURFACE  DETENTION  CAPACITY  (m)  ' 
write ( 6 ,  * ) ' PRESENT  VALUE  IS  ',detcap 
kl-1 

read ( 5 , * , iostat-kl , err- 2 7  0 ) detcap 
if (jr.gt.O)goto  435 

275  write (6,*) ' INPUT  ITERATION  TIME  INTERVAL  (secs)  ' 
write (6,*) 'PRESENT  VALUE  IS  ',af 

kl-1 

read (5 , * , iostat-kl , err-275) af 
if ( jr.gt.0)goto  435 

276  do  288  i«l , nl 

277  write ( 6 , *) *  INPUT  INITIAL  SOIL  MOISTURE  AS  %  FOR  CELL' , i 
write (6,*) 'PRESENT  VALUE  IS  ',tf(l,i) 

kl-1 

288  read (5,*, iostat-kl, err-277) tf (1, i) 
if (jr.gt.O)goto  435 

289  do  280  i-1 , nl 

278  write (6,*) 'INPUT  THICKNESS  (in)  OF  CELL  NO.  ',i 
write(6,*) 'PRESENT  VALUE  IS  ',tcom(i) 

kl-1 

280  read ( 5 , * , iostat-kl , er r-2 7  8 ) t com ( i ) 
if (jr.gt.O)goto  435 

400  write (6,*) 'INPUT  INTERNAL  ANGLE  OF  FRICTION  PHI' 
write (6,*) 'PRESENT  VALUE  IS  ',phi 
kl-1 

read ( 5 , * , iostat-kl , err-4  00 ) phi 

write (6,*) 'INPUT  REMOULDED  INTERNAL  £  rGLE  OF  FRICTION  PHIB 

write(6,*) 'PRESENT  VALUE  IS  ',phib 

kl-1 

read (5, *, iostat-kl, err-4 00) phib 
if (jr.gt.O)goto  435 
405  write(6,*) 'INPUT  SOIL  COHESION' 
write (6,*) 'PRESENT  VALUE  IS  ',c 
kl-l 

read ( 5 , * , iostat-kl , er r-4  0  5 ) c 
if (jr.gt.O)goto  435 

410  write (6,*) 'INPUT  SOIL  SHEAR  MODULUS' 
write (6,*) 'PRESENT  VALUE  IS  ',gg 
kl-1 

read ( 5 ,*, iostat-kl , err-4 10) gg 
if (jr.gt.O)goto  435 


o  o  o  o 


415  write ( 6 , * ) ' INPUT  SOIL  DENSITY' 
write (6,*) 'PRESENT  VALUE  IS  ',d 
kl-1 

read ( 5 , * , iostat-kl , err*4 15 ) d 
if (jr.gt.O)goto  435 

420  write(6,*) 'INPUT  DEPTH  OF  CONE  TIP' 
write(6,*) 'PRESENT  VALUE  IS  ' ,  zz 
kl-1 

read(5,*, iostat-kl, err-420) zz 
if (jr.gt.O)goto  435 
c 

2S5  write(6,*) 'INPUT  NUMBER  OF  HOURS  OF  RAIN  ' 
write(6,*) 'PRESENT  VALUE  IS  ' , ir 
kl-1 

read (5, *,  iostat-kl, err*28 5) ir 
if (jr.gt.O)goto  435 

286  do  290  i-1, ir 

287  write (6,*)  'INPUT  PRECIPITATION  (in)  FOR  HOUR  ',i 
write (6,*) 'PRESENT  VALUE  IS  ',ppt(i) 

kl-1 

290  read ( 5 , * , iostat-kl , err-2  8 7 ) ppt ( i ) 
if (jr.gt.O)goto  435 
295  write (6,*) 'INPUT  RAIN  START  TIME  ' 
write(6,*) 'PRESENT  VALUE  IS  ',alr 
kl-l 

read (5 , * , iostat-kl, err-2 95) air 
if (jr.gt.O)goto  435 
300  write (6,*) 'INPUT  RAIN  STOP  TIME  ' 
write(6,*) 'PRESENT  VALUE  IS  ',amr 
kl-1 

read ( 5 , * , iostat-kl , err-3  00 ) amr 
if (jr.gt.O)goto  435 

305  write(6,*) 'INPUT  DURATION  OF  RUN  TIME  (hours)  ' 
write  ( 6 ,  * )  '  PRESENT  VALUE  IS  ' ,  immax 
kl-1 

read ( 5 , * , iostat-kl , err*3  0  5 ) immax 
if (jr.gt.O)goto  435 
c 

320  write(6,*) 'WHAT  NAME  DO  YOU  WISH  TO  SAVE  THIS  FILE  UNDER' 
kl-1 

answ-'y' 

read ( 5 , * , iostat-kl , err- 320) name 

inquire (file-name , exist*f exist ) 

if (f exist) call  bmsg2(answ) 

if (answ.ne. 'y')goto  320 

open ( 10 , file-name) 

rewind  10 

k-10 

call  bview 
close (10) 

321  write (6, *) 'INPUT  ANY  NUMBER  TO  CONTINUE' 
read (5,*, iostat-kl, err-321) icheck 

goto  1 


THIS  SECTION  ALLOWS  YOU  TO  CHANGE  A  PARAMETER  VALUE 
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430  write (6,*) 'INPUT  NAME  OF  FILE  TO  BE  READ' 
kl-1 

read ( 5 , * , iostat-kl , err-4  3  0 ) name 

inquire ( file-name , exist-f exist ) 

if (.not. f exist) call  bmsgl 

if (. not. f exist) goto  430 

open ( 2 , file-name) 

rewind  2 

k-2 

call  breadl 
call  bread2 
call  bread3 
close (2) 
iset-1 
k«6 

call  bview 

435  write (6,*) 'PLEASE  SELECT  THE  IDENTIFYING  VALUE  OF  THE  PARAMETER' 
write (6,*) 'YOU  WISH  TO  CHANGE  FROM  THE  FOLLOWING  SERIES  OF  LISTS' 
write (6,*)'  ' 

write ( 6 , * ) ' 1 . METEOROLOGICAL  DATA ' 

write ( 6 ,  * }  '  2 . PRECIPITATION  DATA ' 

write (6,*) '3. SOILS  DATA' 

write ( 6 , * ) ' 4 . RUN  DEFINITION  DATA ' 

write (6,*) '5. SAVE  FILE' 

write(6,*) '6. EXIT  TO  MAIN  MENU' 

kl-1 

read ( 5 , * , iostat-kl , err-4  3  5 ) kr 
goto (501, 502 , 503 , 504 ,320,1) kr 
if (kr.gt.4)goto  1000 

501  write (6,*) 'CHOOSE  FROM  THE  FOLLOWING  PARAMETERS' 

write ( 6 , * ) ' 1 . PRECIPITATION  VALUES ' 
write (6,*) '2. RAIN  START  TIME' 
write (6,*) '3. RAIN  FINISH  TIME' 
write (6,*) '4. CLOUD  TYPE' 
write (6  .*) '5. BAROMETRIC  PRESSURE' 
write(6,*) '6. ALBEDO  OF  SURFACE' 

write ( 6 , * ) ' 7 . NUMBER  OF  AIR  TEMPERATURE  OBSERVATIONS ' 

write (6,*) '8. AIR  TEMPERATURE  OBSERVATIONS' 

write (6,*) '9. NUMBER  OF  RELATIVE  HUMIDITY  OBSERVATIONS' 

write (6,*) '10. RELATIVE  HUMIDITY  OBSERVATIONS' 

write (6,*) '11. NUMBER  OF  CLOUD  COVER  OBSERVATIONS' 

write (6,*) '12. CLOUD  COVER  OBSERVATIONS' 

write ( 6 , * ) ' 13 . NUMBER  OF  GROUND  TEMP  OBSERVATIONS ' 

write (6,*) '14. GROUND  TEMP  OBSERVATIONS' 

write (6,*) '15. NUMBER  OF  WIND  SPEED  OBSERVATIONS' 

write (6,*) '16. WIND  SPEED  OBSERVATIONS' 

write (6,*) ' 17 . ***EXIT*** ' 


kl-1 

read (5, *, iostat-kl, err-501) jr 

goto (502, 295, 300, 50, 55, 71, 120, 198,125,215,130, 
&  231,140,241,145,251,435) jr 
goto  502 
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502  wri te (6, *) 'CHOOSE  FROM  TTIE  FOLLOWING  PARAMETERS' 


write (6, *) '1.  NUMBER  OF  HOURS  OF  RAIN' 
write(6,*) '2.  ALL  PRECIPITATION  VALUES' 
write (6,*) '3.  ONE  PRECIPITATION  VALUE' 
write (6,*) '4.  RAIN  START  TIME' 
write(6,*) '5.  RAIN  STOP  TIME' 
write (6,*) '6.  EXIT  TO  MENU' 

kl-1 

read ( 5 , * , iostat*kl , err-502 ) j  r 
goto (285, 286, 505, 295 ,300, 435) jr 
goto  502 

505  write (6,*) 'WHICH  HOUR  OF  PRECIPITATION  DO  YOU  WISH  TO  ALTER?' 
kl-1 

read ( 5 , * , iostat-kl , err-505 ) i 

write (6,*)'  INPUT  PRECIPITATION  (m)  FOR  HOUR  ',i 

write(6,*) 'PRESENT  VALUE  IS  ',ppt(i) 

kl-1 

read  ( 5 ,  * ,  iostat-kl ,  err-5  0  5 )  ppt  ( i ) 
goto  502 

503  write (6,*) 'CHOOSE  FROM  THE  FOLLOWING  PARAMETERS' 

write (6,*) '1.  INTERNAL  ANGLES  OF  FRICTION,  PHI  AND  PHIB' 

write (6,*) '2.  SOIL  COHESION' 

write ( 6 , * ) ' 3 .  SOIL  SHEAR  MODULUS ' 

write (6,*) '4.  SOIL  DENSITY' 

vrite(6, *) '5.  DEPTH  OF  CONE  TIP' 

write ( 6 , * ) ' 6 .  NUMBER  OF  LAYERS' 

write (6,*) '7.  SOIL  TYPES  OF  LAYERS' 

write (6,*) '8.  ORGANIC  MATTER  OF  LAYERS' 

write ( 6 , * ) ' 9 .  MOISTURE  CONTENT  OF  LAYERS ' 

write (6,*) '10.  THICKNESS  OF  LAYERS' 

write(6,*) '11.  SLOPE  ANGLE' 

write(6,*) '12.  ZENITH  ANGLE' 

write (6,*) '13.  SURFACE  AZIMUTH  ANGLE' 

write(6,*) '14.  LATITUDE  OF  SITE' 

write(6,*) '15.  TOPOGRAPHIC  A/S  VALUE' 

write(6,*) '16.  EXIT  TO  MENU' 

kl-1 

read ( 5 , * , iostat-kl , err-503 ) j  r 

goto (400, 405, 410, 415, 420, 10, 15, 27, 276, 289, 40, 45, 60, 65, 11, 435) 
goto  503 

504  write (6,*) 'CHOOSE  FROM  THE  FOLLOWING  PARAMETERS' 

WRITE (6,*) '1.  ITERATION  TIME  INTERVAL' 
write (6,*) '2.  DURATION  OF  RUN  TIME' 
write (6,*) '3.  JULIAN  DAY' 
write (6, *) *4.  EXIT  TO  MENU' 

kl-1 

read ( 5 , * , iostat=kl , err-504 )  j  r 
goto (275, 305, 70, 435)  jr 
goto  504 


100  format (lx, 'THIS  PART  OF  THE  PACKAGE  SETS  UP  AN  INPUT  FILE') 


110  FORMAT (/IX, 'DO  YOU  WISH  TO  CONTINUE?  y  OR  n') 


1010  stop 
1000  return 
end 
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c 

c******************************************************** 

c 

C  SUBROUTINE  BMSG 
c 

C************************************ ********* *********** 

c 

subroutine  bmsg (answ) 
c 
c 

c  This  subroutine  sends  a  message  to  the  user  when 
c  a  file  (1)  does  not  exist  and  the  system  has  been 
c  told  by  the  user  to  read  it,  and  (2)  that  a  file 
c  already  exists  when  wanting  to  over  write.  The 
c  system  asks  for  confirmation  of  overwriting, 
c  Created  by  J.E.  Cochrane 

c  at  the  Geography  Department,  University  of  Bristol,  England, 
c  January,  1988. 
c 
c 

c  'bmsg'  is  called  by  'bcntl' 
c  'bmenu' 

c  'rrcid' 

c  'rread' 

c  'rsave' 

c  ' tcntl ' 

c  'tred' 

c  'vcntl' 

c  'vmenu' 

c 
c 

character  answ*l 
entry  bmsgl 
c 
c 

write (6,*) '  ' 

write(6,*) 'FILE  DOES  NOT  EXIST' 
write ( 6 , * ) '  ' 

c 

return 

c 


entry  bmsg2(answ) 
write(6,*)'  ' 

write (6,*) 'FILE  ALREADY  EXISTS  -  DO  YOU  WISH  TO  OVERWRITE? 
write(6, *) '  ' 

write(6,*) '  y  OR  n  ' 
write  ( 6 ,  * )  _'  ' 

read ( 5 , * ) answ 
return 
end 


c****** ********** * *************************************** 

c 

c  SUBROUTINE  BREAD 

c 

C*********************** ****** ****** ********************* 

c 

subroutine  bread 
c 

c  This  subroutine  reads  the  input  data  for  the  BRISTOL  SOIL 
C  STRENGTH  SCHEME, 
c  Created  by  J.E.  Cochrane 

c  at  Geography  Department,  University  of  Bristol,  England, 
c  September,  1987. 
c 
e 

c  'bread'  has  3  entry  points  -  'breadl',  'bread2',  &  'bread3' 
c 

c  'breadl'  is  called  by  'bmenu'  when  editing,  otherwise  'bcntl' 

c  'bread2'  is  called  by  'bmenu'  when  editing,  otherwise  'bcntl' 

c  'bread3'  is  called  by  'bmenu'  when  editing,  otherwise  'binfil 

c 
c 

include  'spec. bone' 
include  'spec.btwo' 
include  'spec.bthree' 
include  'spec.bgrnd' 
c 
c 
c 

entry  breadl 
write ( 14 , * ) '  readl ' 
k«2 

read ( k , * ) nos , aos 
read(k,*) isty(l) ,isty(2) ,isty(3) 
read (k,*) op (1) ,op(2) ,op(3) 
return 
c 
c 

entry  bread2 
write ( 14 , * ) '  read2 ' 
k-2 
c 

read (k, *) max (1) ,max(2) ,max(3) ,max(4) ,max(6) 
read(k, *) slope, za,ncloud, press, surf acaz, lat, days 
do  10  j-i,6 

if (j.eq.5)goto  20 

read(k, *) (yyy(i, j) , i=l,max( j) ) 

read(k, *) (xxx(i, j) ,i»l,max(j) ) 

20  CONTINUE 
10  CONTINUE 
c 

read(k,*)nl 
read (k, * ) detcap , af 
do  30  i-l,i 

read(k, *) (tf (i, j) , j-i,nl) 
write(i4,*) (tf (i, j) , j-l,nl) 

30  CONTINUE 


on  on 


c 


c 


c 


c 

c 


100 
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read(k,*) (tcom(i) , i-l,nl) 
read(k  ,*)ir 

read(k, *) (ppt (i) , i=l, ir) 
return 


entry  bread3 

write ( 14 , * ) '  read3 ' 

k»2 

kl-1 


read (k, * , iostat*kl , err-100 ) air , amr 

read(k,*,iostat-kl,err-100) (nla(i) , i-l,nos) , inmax 

read(k, *, iostat»kl,err«100) alb 

read (k,  * , iostat«kl , err-100) phi , c , phib , gg , zz 

k-6 

CONTINUE 

aal-1.48 
d-0.799 
alpha-15 . 0 
gamma-0 . 067 
ua— 17 .  o 

return 

end 


O  0 


c* ****** ****************************** ********* ********* * 

c 

c  SUBROUTINE  BS CHARS 

c 

c ******************************************************** 

c 

subroutine  bschars 
c. 
c 

c  This  subroutine  accesses  the  soil  information  data  bank  in  the 
c  BRISTOL  SOIL  STRENGTH  SCHEME, 
c  Created  by  J.E.  Cochrane 

c  at  Geography  Department,  University  of  Bristol,  England, 
c  July,  1987. 
c 
c 

c  Key:-  soil  type 

c 

c 

c  'bschars'  is  called  by  'bcntl' 
c 

include  'spec.bnow' 
include  'spec.bgmd' 
c 

include  'spec.bdl' 
include  'spec.bdata' 


open (15, file* 'check. d' ) 
write ( 14 , * ) '  scars ' 
write (14,*) j 
c 
c 

bsatcon-loglO (asatcon ( isty ( j ) ) ) *aos 
satcon ( j ) «g05ddf (bsatcon , ssatcon ( isty ( j ) ) ) 
satcon( j ) -io**satcon ( j ) 
c 

bp( j )*g05ddf (abp (isty ( j ) ) ,sbp(isty(j) ) ) 
sr(j)*g05ddf (asr(isty(j) ) ,ssr(isty(j) ) ) 
txfr&(j)"g05ddf (am(isty(j) ) ,sm(isty (j) ) ) 
»P(j)-g05ddf (asp(isty(j) ) , ssp(isty ( j ) ) ) 
cp(j)«g05ddf (acp(isty(j) ) ,scp(isty(j) ) ) 
c 

write(15,*)'  satcon' ,j ,satcon(j) 
write (15,*) '  bp',j,bp(j) 
write(l5,*)'  sr',j,sr(j) 
write(15,*)'  bdm' , j ,bdm(j) 
write(15, *) '  sp',j,sp(j) 
write(15, *) '  cp-’,j,cp(j) 
c 
c 

return 

end 


-429- 


c 

c ******************************************************** 
c 

C  SUBROUTINE  BSMCURV 
c 

C********************* ************************** ********* 

c 

subroutine  bsmcurv 
c 
c 

c  This  subroutine  calculates  the  new  20  point  suction  moisture  curve 
c  in  the  BRISTOL  SOIL  STRENGTH  SCHEME, 
c  Original  by  S.  Howes 
c  Adapted  by  J.E.  Cochrane 

c  at  the  Geography  Department/  University  of  Bristol. 

c 

c 

c  'bsmcvurv'  is  called  by  'bcntl ' 
c 

include  •  spec .  bgmd ' 
include  ' spec . bman ' 

C 

C 

C  Calculate  gradients  of  this  new  suction-moisture  curve 
c 

nq-10 

nnq*NQ-l 

do  200  I-l,nnq 

200  ag(  j ,  i)*(y  ( j ,  i+1) -y  ( j ,  i) )/ (ax( j , i+l) -ax( j , i) ) 

C 

C  Calculate  max  and  min  moisture  values,  and  determine  the  size  of 
C  equal  intervals. 

C 

do  305  i-1,10 
305  x(j,i)-ax(j,i) 
xmax»ax( j , 10) 
xmin~ax( j , 1) 
xint» ( xmax-xmin ) / 19 . 

C 

C  Determine  the  new  values  of  moisture-equal  intervals 
C 

xnew( j , l)*xmin 
do  300  i«2,19 

300  xnew( j , i)«xnew( j , l)+(xint* ( i— 1) ) 

xnew (j,20) *xmax 
C 

C  Determine  the  associated  new  values  of  suction 
C 

do  350  i-1^19 
do  400  k*l,nnq 

if (xnew( j , i) .ge. ax( j ,k) .and. xnew( j , i) . It. ax( j ,k+l) ) 

&  ynew ( j , i ) *y ( j , k) +ag ( j , k) * ( xnew (j,i)-ax(j,k) ) 

400  CONTINUE 
350  CONTINUE 

ynew(j ,20)-y(j ,nq) 


0  o 


c ********************************************************* 
c 

C  SUBROUTINE  BSOILBD 
c 

C******************* ****** *************** ***************** 

c 

subroutine  bsoilbd 
c 
c 

c  This  subroutine  calculates  soil  bulk  density  (sbd)  and  the  basic 
c  suction  moisture  curve  for  given  suctions  in  the  BRISTOL  SOIL 
C  STRENGTH  SCHEME, 
c  Created  by  J.E.  Cochrane 

c  at  the  Geography  Department,  University  of  Bristol,  England, 
c  February,  1987. 
c 
c 

c  'bsoilbd'  is  called  by  'bcntl' 

c 

c 

include  ' spec . bgrnd ' 
include  'spec.bman' 
include  'spec. bone' 
include  ' spec . bextra ' 
include  'spec.bdatl' 


sbd(j)«(l00/((op(j)/0.224)+((l00-op(j))/bdm(j)))) 
do  10  i-l,9 

aax(j,i)«(aa(i)+(bb(i)*sp(j) )+(cc(i)*cp(j) )+(dd(i) *op(j) 
&  )+(ee (i) *sbd( j ) ) ) 
write (14 , *) 'aax( j , i) ' ,aax( j , i) 

10  CONTINUE 
c 

return 

end 


C***************** ********* ******** *********** ************ 

c 

c  SUBROUTINE  BVIEW 
c 

C*********************** ************** ******************** 

c 

subroutine  bview 


c 

C  . 

c  This  subroutine  will  printout  an  input  file  for  the  BRISTOL  SOIL 
c  STRENGTH  SCHEME  to  either  a  datafile  or  the  screen, 
c  Created  by  J.E.  Cochrane 

c  at  Geography  Department,  University  of  Bristol,  England, 
c  October,  1987. 
c 
c 

c  'bview'  is  called  by  'bmenu' 
c 

include  'spec. bone' 
include  'spec.btwo' 
include  'spec.bthree' 
include  'spec.bgmd' 


c 

c 

write ( k , * ) nos , aos 
write(k,*)  (isty(i)  ,i=*l,nos) 
write (k,*) (op(i) , i=l,nos) 
write(k, *) (max(i) , i-1,4) ,max(6) 

write (k, * ) slope , za , ncloud , press , surf caz , lat , days 

write(k, *) (yyy(i,l) ,i=l,max(l) ) 

write(k,*) (xxx(i,l) ,i=l,max(l) ) 

write (k,*) (yyy(i,2) ,i«l,max(2) ) 

write (k,*) (xxx(i,2) , i=l,max(2) ) 

write (k,*) (yyy(i,3) ,i«l,max(3) ) 

write (k,*) (xxx(i,3) , i=l,max(3) ) 

write(k, *) (yyy(i,4) ,i=l,max(4) ) 

write (k,*) (xxx(i,4) ,i-l,max(4) ) 

write (k,*) (yyy(i, 6) , i»l,max(6) ) 

write (k, *) (xxx(i, 6) , i*l,max(6) ) 


write(k,*)nl 
write (k, *) detcap, af 
write(k,*) (tf(l,i) ,i=l,nl) 
write(k,*) (tcom(i) , i*l,nl) 
write (k, *) ir 

write (k,*) (ppt(i) ,i*l,ir) 

write (k, *) air , amr 

write (k,*) (nla(i) ,i*l,nos) , immax 

write (k,*) alb 

write (k, *) phi,c,phib,gg, zz 


c 


return 

end 


write (6, * ) /******************** ************************** ****** 
write (6,*) 'WELCOME  TO  THE  BRISTOL  ROUTE  PACKAGE ' 
write (6  /  *)  #*************************<r*******<t****************** 
10  write (6,*) 'ENTER  ANY  NUMBER  TO  CONTINUE' 
kl  -1 

read ( 5 ,  * , iostat*kl , err*  1 0 ) f ax 
20  write (6,*) 'MASTER  MENU' 

write (6, *) '  1.  ACCESS  BRISTOL  RCI  PROGRAM' 

write(6, *) '  2.  ACCESS  VS AS 2  RCI  PROGRAM' 

write (6,*)'  3.  OPTIMUM  ROUTE  PROGRAM' 

write (6, *) '  4.  EVALUATION  OF  RCI  OVER  A  GIVEN  ROUTE' 

write ( 6 ,  * )  '  5.  FINISH' 

write(6,*) 'INPUT  OPTION  1-5' 


kl-1 

read ( 5 ,  * , iostat-kl , err*  2  0 ) io 
if (io.gt.5.or.io.lt.l)goto  20 
goto (30, 40, 50, 55, 60) io 
30  call  bcntl 
goto  20 
40  call  vcntl 
goto  20 
50  call  rcntl 
goto  20 
55  call  tcntl 
goto  20 


g********************************* *****************  ******* 

c 

c  SUBROUTINE  RCREATE 
c 

c********************************** *********************** 
c 

subroutine  rcreate 
c 
c 

c  This  subroutine  creates  a  grid  to  the  users  specifications, 
c  This  is  used  in  the  GRID  CREATE  SCHEME, 
c  Created  by  J.E.  Cochrane 

c  at  the  Geography  Department,  University  of  Bristol,  England, 
c  September,  1987. 
e 
c 

c  'rcreate'  is  called  by  'rcntl' 
c 

include  ' spec . rgr id ' 
c 
c 

if (kit. ge. 99) goto  700 
10  write(6,l00) 
kl-2 

read(5,*,iostat-kl,err=800) ii 

write (6, 110) 

k2«2 

read ( 5 , * , iostat=k2 , err=8  00 ) j  j 
c 

do  500  j*l,jj 
do  400  i-l,ii 
write (6, 130) j , i 
kl-3 

read (5, *, iostat»kl,err=800) ig( j , i) 

400  CONTINUE 
500  CONTINUE 
c 

write (6, 140) 
write(6,150) (i,i«l,ii) 
write (6, 160) 
do  520  j-l,jj 

write (6, 170) j , (ig(j,i) ,i=l,ii) 

520  CONTINUE 
kit-999 
c 
c 

100  format (lx, '  HOW  MANY  COLUMNS?') 

110  format (lx, 'HOW  MANY  ROWS?') 

120  format (lx, 2i3) 

130  format (lx,'  FOR  ROW  ',i3,'  COLUMN  ' , i3 , '  ENTER  ID') 

140  format (15x, 'COLUMN') 

150  format (12x, 15 i3) 

160  format (/, lx, '  ROW',/) 

170  format(lx, i3 , 8x, 15i3) 

710  format (lx, 'THERE  IS  ALREADY  A  GRID  CREATED') 

720  format (lx, 'DO  YOU  WISH  TO  OVERWRITE?  y/n') 


if (kit.ge.99)goto  20 
700  write(6,710) 
write(6, 720) 
read  ( 5 ,  * )  ans 
if (ans.eq. 'y')goto  10 
return 

800  write (6 , *) '  YOU  HAVE  INPUT  A  NON-INTEGER  VALUE 
20  return 
end 


0  0  o  o 


C**********************-*?********************  ************* 

c 

c  SUBROUTINE  RPRINT 
c 

c******************************************************** 

c 

subroutine  rprint 
c 
c 
c 

c  This  subroutine  prints  out  the  evaluation  of  RCI  over 
c  a  given  route, 
c  Created  by  J.E.  Cochrane 

c  at  the  Geography  Department,  University  of  Bristol,  England 
c  September,  1987. 
c 

c  'rprint'  is  called  by  'rrcid' 
c 

include  ' spec . rgr id ' 
include  'spec.rrci' 
include  'spec.rtrav' 


entry  rprintl 


open ( 10 , file- ' route . out ' ) 
do  10  j-l-,10 

write(6,100) j,trackc(j) ,trackr(j) 
10  CONTINUE 
100  format(lx,3i5) 
return 
end 


cr 

c 


do  30  j-l,jj 

write (11, 100) j , ( igg ( i , j ) , i=l,ii) 
30  CONTINUE 


write (6, 200) 
write(6, 210) 
kl-1 

read ( 5 , * , iost at*kl , err=4  0 0 ) c  s 

write(6,*)cs 

write (6, 220) 

kl-1 

read ( 5 , * , iostat-kl , er r-4 0  0 ) r s 

write (6, *)  rs 

write(6,2’30) 

write (6, 210) 

kl-1 

read ( 5 , * , iostat=kl , err-400 ) cf 

write(6,*)cf 

write (6, 220) 

kl-1 

read ( 5 , * , iostat-kl , err-4  0 0 ) r f 
write(6,*)rf 
c 

c  start 
c 

posc-cs 

posr-rs 

c 

do  150  kkk-1,30 
rtc (kkk) -pose 
rtr (kkk) -posr 
trackc  (kJck)  -pose 
trackr (kkk) -posr 
c 

biasc-cf -pose 
biasr*rf-posr 

write(ll, *) biasc, biasr, 'bias' 
c 

if (pose. eq.cf. and. posr. eq. rf) call  rprintl 
i f ( pose .eq.cf. and . posr . eq . r f ) return 
c 

if  (blase .  It .  0 )  be— 1 
if (biasc . gt . 0 ) bc-1 
if (biasc . eq . 0 ) bc-0 
c 

write ( 6, *) biasc 
if (biasr . It. 0)br=- 1 
if (biasr.gt. 0) br=l 
if (biasr. eq. 0) br-0 
c 

write (6,*) biasr 
c 

iac-(iabs (biasc) ) 

iar- ( iabs (biasr) ) 

total-iar+iac 

diff  »  (max0(iac,iar)+l) 


write (6,*) iac, iar,diff, total, 


if (biasr.eq.O)goto  400 
if (biasc.eq.O)goto  280 


c 

c 


iac, 


iar,  dif,  tot' 


mover-posr 

movec-posc 

if ( check (posc+bc,posr) .gt. 0)movec=posc+bc 

if (check (posc+bc, posr) .gt. 0. and. igg(posc+bc,posr) .gt.liml)goto  85 
c 

if ( check (pose , posr+br) . gt . 0 ) mover-posr+br 

if (check (pose, posr+br) . gt.O. and. igg( pose, posr+br) .gt.liml)goto  90 
c 

if (check (posc+bc, posr+br) .gt. 0)movec=pose+bc 
if (check (posc+bc, posr+br) .gt . 0) mover=posr+br 

if ( check (posc+bc , posr+br) .gt.O. and . igg (posc+bc , posr+br) . gt . 1 iml ) 

&  goto  95 
c 

check (posc+bc , posr ) =kkk 
check  (pose ,  posr+br)  “kick 
check (posc+bc , posr+br) -kkk 
c 

kan-igg (posc+bc, posr) *iac/total 
kbn-igg (pose , posr+br) *iar/total 
ken-igg (posc+bc, posr+br) *diff /total 
c 

if  (kan .  gt .  kbn .  and .  kan .  gt .  ken)  movec*posc+bc 
if (kan . gt ; kbn . and . kan . gt . ken ) mover=posr 
c 

if (kbn . gt . kan . and . kbn . gt . ken) movec=posc 
if ( kbn . gt . kan . and . kbn . gt . ken) mover=posr+br 
c 

i  f  ( ken .  ge .  kan .  and .  kcr. .  ge .  kbn )  movec*posc+bc 
if ( ken . ge . kan . and . ken . ge . kbn ) mover=posr+br 
c 

write(6, *) 'kan' ,kan, igg (posc+bc, posr) 
write(6, *) 'kbn' , kbn, igg (pose, posr+br) 
write (6,*) 'ken' , ken, igg (posc+bc, posr+br) 
write ( 6 , * ) ' pose ' , pose , movec 
write ( 6 , * ) ' posr ' , posr , mover 
goto  310 
c 

85  kkk*check (posc+bc, posr) 
goto  310 

90  kick-check  (pose,  posr+br) 
goto  310 

95  kkk-check (posc+bc, posr+br) 
goto  310 
c 
c 

c  N-S  movt. 
c 

280  CONTINUE 


c 

c 


write ( 6 , * ) check ( pose , posr+br) , check ( posc+ 1 , posr+br) 
&  , check (posc-1, posr+br) 


<.i  ;ti  «,t  . 


A 


M/ilAI. 


if (check (pose, posr+br)  . gt.o. and.  igg( pose, posr+br)  .g 
if (check (posc+1, posr+br) . gt . 0) movec=posc+l 
if (check (posc+1 , posr+br) . gt . 0 . and . igg (posc+1 , posr+b 
&  goto  301 

if (check (posc-1, posr+br) .gt. 0)movec=posc-l 
if ( check ( posc-1 , posr+br) . gt . 0 . and . igg ( pose- 1 , posr+b 
&  goto  302 

check (pose , posr+br) *kkk 
check (posc+1 , posr+br) *kkk 
check (posc-1 , posr+br) =kkk 

write (6,*) check (pose , posr+br) , check ( posc+1 , posr+br) 
&  , check (posc-1, posr+br) 
if (pose. eq.cf . and. posr+br. eq.rf) goto  80 
if (posc+1 .eq.cf. and . posr+br . eq . r f ) goto  8  0 
if ( posc-1 .eq.cf. and . posr+br .eq.rf) goto  8  0 

ian  -  igg (pose, posr+br) 

ibn  -  (igg(posc+l, posr+br) * (iar-1) /total) 
icn  *  igg (posc-1, posr+br) * (iar-1) /total 
write (6, *)posc,posr, 'col,  row' 
write(6, *) igg (pose, posr+br) , 'ian',br 
write (6,*) igg (posc+1, posr+br) , 'ibn' 
write (6,*) igg (posc-1, posr+br) , 'icn' 
write (6,*) ian, ibn, icn 
write ( 6 , * ) pose , posr 


c  comparison  of  next  potential  grid  squares  (3) 


5'JM 


w 


W-E  movt 


if (posr . eq . r f . and . posc+bc . eq . cf ) goto  8  0 
if (posr+br . eq. r f . and . posc+bc . eq . cf ) goto  8 0 
if (posr-br.eq.rf. and. posc+bc. eq.cf) goto  80 

movec=posc+bc 

if ( check (posc+bc , posr) . gt . 0 ) mover=posr 

if (check (posc+bc, posr) .gt. 0. and. igg( posc+bc, posr) .gt. liml) goto  115 
if ( check (posc+bc , posr+1 ) . gt . 0 ) mover=posr+l 

if (check (posc+bc, posr+1) . gt.O. and. igg( posc+bc, posr+1) .gt.liml) 

&  goto  125 

if  (check  (posc+bc,  posr- 1)  .gt.  0)mover**posr-l 

if ( check ( posc+bc , posr- 1 ) .gt.O. and . igg ( posc+bc , posr- 1 ) .gt.liml) 

&  goto  135 

check ( posc+bc , posr ) -kkk 
check (posc+bc , posr+1 ) =kkk 
check ( posc+bc , posr- 1 ) =kkk 

j  an*igg (posc+bc , posr) 
jbn«igg (posc+bc , posr+1) *iac/ total 
j  cn- igg ( posc+bc , posr- 1 ) * iac/ 1 ota 1 
write (6,*) • jan' , jan, jbn, jcn 
write ( 6 , * ) pose , posr 


comparison  of  next  3  grid  squares  in  W-E  direction 


if ( jan.ge. jbn)mover*posr 
i f ( j  bn . ge . j  an ) mover*posr+ 1 
if (jan.lt. jbn) jan-jbn 
if ( jcn.gt. jan)mover»posr-l 
movec-posc+bc 


goto  310 

115  kkk-check (posc+bc, posr) 
goto  310 

125  kkk»check (posc+bc, posr+1) 
goto  310 

135  kkk-check (posc+bc, posr- 1) 
goto  310 
150  CONTINUE 
80  trackc(kkk+l)=cf 
trackr (kkk+1) =rf 
call  rprintl 

100  format ( lx, i3 , 8x, 15 i3) 

200  format (lx, 'DEFINE  STARTING  POSITION') 
210  format (/, lx, 'ENTER  COLUMN') 

220  format(/, lx, 'ENTER  ROW') 

230  format(//, lx, 'DEFINE  FINISH  POSITION') 


vrite(6, 180) j , (ig(j,i) ,1=1,11) 

210  CONTINUE 

write (6, 190) 
read ( 5 , * ) ans 
if (ans.eq. 'y')goto  10 
goto  20 

1000  write (6, 300) 

20  return 
c 
c 

100  format (lx, 'NAME  OF  FILE  TO  BE  RETRIEVED? ' ) 

130  format (I2x, 15 i3 ,/) 

140  format(lx,i3,8x,15i3) 

150  format (15x, 'COLUMN') 

160  format (I2x, 15i3 ,//) 

165  format (lx, 2 5x) 

170  format(/,lx, '  ROW',/) 

180  format(lx,i3,8x,15i3) 

190  format ( lx , ' DO  YOU  WISH  TO  OVERWRITE  EXISTING  GRID?  y/n') 

300  format (lx, 'FILE  DOES  NOT  EXIST') 
c 

entry  rread2 
c 
c 

write (6, 9100) 
write (6, 9 110) 
write (6, 9120) 
read (5, *) ansi 
if (ansi. eq. 'y') return 
write (6, 9130) 
read ( 5 , * ) t 
write (6, 9140) 
read (5, *)n 
c 

do  910  k»l,n 
name-try  (k) 
open (4, file-name) 
rewind  4 

write (6, 241) name 
do  920  kk=l , t-1 
read ( 4 , * ) iab 
920  CONTINUE 

read (4 , *) ir (k) 

910  CONTINUE 
c 
c 

241  format (lx, 15A) 

888  format (lx, 1A) 

9100  format (IX, 'IT  IS  ASSUMED  THAT  THERE  ARE  DATA  FILES  EXISTING') 
9110  format (IX, 'NAMED  data.n,  WHERE  n  IS  THE  ID  IN  THE  GRID') 

9120  format ( lx , 'DO  YOU  WISH  TO  RETURN  TO  MAIN  MENU?  y/n') 

9130  format (IX, 'PLEASE  INPUT  TIME  REQUIRED  (AS  HOURS  FROM  START)') 
9140  format (lx, 'PLEASE  DEFINE  MAX.  NUMBER  OF  FILES  TO  BE  ACCESSED') 
c 
c 

return 

end 


c ******************************************************** 

c 


his  subroutine  allows  the  user  to  escape  from  the 
oute  management  scheme  if  a  full  library  of  data 
iles  does  not  exist, 
reated  by  J.E.  Cochrane 

t  the  Geography  Department,  University  of  Bristol,  England 
entember .  1987 . 


i!i 


(^★★★★★★★★★★★★★★★** ★*★**★★★★*★★*★★★*★**★*★*★★*★***★***★*★ * 

C 

C  SUBROUTINE  RSAVE 
C 

C****************************** ******* ******************* 

c 

subroutine  rsave 
c 
c 

c  This  subroutine  saves  the  grid  with  identifiers  in  the  GRID  CREATE 
C  SCHEME. 

c  Created  by  J.E.  Cochrane 

C  at  the  CofVira.ihv  nor^AT-hmori'h  ftniveraitv  nf  Bri  ct-nl  .  PnrrT  anH 
C 


M 


i 


170  format (lx, i3,8x, 15i3) 

180  format ( lx, '999 ') 

200  format ( lx , '  DO  YOU  WISH  TO  SAVE  THIS  GRID?') 

210  format (IX, 'A  SECOND  CHANCE  TO  SAVE  THE  GRID  Y  or  N? ' ) 

220  format (IX, 'PLEASE  TYPE  I’l  NAME  OF  FILE  THAT  GRID  IS  TO',/ 
& 'SAVED  IN') 


return 

end 


c* ***************************************************** * 
c 

subroutine  tcntl 
c 
c 

c  This  subroutine  controls  the  evaluation  of  RCI  over 
c  a  specified  route, 
c  Created  by  J.E.  Cochrane 

c  at  the  Geography  Department,  University  of  Bristol,  England 
c  October,  1987. 
c 
c 

c  ' tcntl '  is  called  by  'link' 
c 

c  'tcntl'  calls  'tredl' 
c  'tred2' 

c  'bmsg2' 

c 
c 

include  'spec.tinput' 
c 
c 

character  name* 15 
character  answ*i 
logical  fexist 
include  ' spec . tset ' 
c 

write (6, 400) 
write (6, 410) 
write(6,420) 
read  ( 5 ,  * )  ik 
if (ik.eq. 1) call  tredl 
if (ik.eq.2)call  tred2 
c 

do  20  i-l,n 

write (6,*) i,pos(i) ,id(i) ,t(i) 

20  CONTINUE 
c 

25  write (6,*) 'PLEASE  ENTER  NAME  OF  OUTPUT  FILE' 
read ( 5 , * ) name 

inquire ( f ile«name , exist=f exist ) 
if (fexist) call  bmsg2(answ) 
if (answ.ne. 'y')goto  25 
open  ( 8 ,  f  ile=*name ) 
c 

do  30  i*l,n 

open(3,file=try(id(i) ) ) 
do  40  it“l, (t(i)-l) 
read ( 3 , * ) a 
40  CONTINUE 
read(3,*)rci(i) 
write ( 8 , * ) i , pos ( i ) , rci ( i ) 
close (3) 

30  CONTINUE 


-453- 


400  format ( lx , ' PLEASE  MAKE  CHOICE  OF  :-') 
410  format (//, lx, '1. CREATE  ROUTE') 

420  format (lx, '2. READ  ROUTE') 


1000  CONTINUE 
return 
end 


Q*************************** ************** ************** 

c 

C  SUBROUTINE  TRED 
c 

C***** ******** *********** ************  ******************* 

c 

subroutine  tred 
c 
c 

c  This  subroutine  asks  the  user  to  specify  a  route  for 
c  the  route  evaluation  scheme, 
c  Created  by  J.E.  Cochrane 

c  at  the  Department  of  Geography,  University  of  Bristol,  England 
c.  October,  1987. 
c 
c 

c  'tred7  is  called  by  'tcntl' 

c 

c 

include  7  spec . tinput 7 
c 

character  name* 10 
character  answ*l 
logical  fexist 
c 

entry  tredl 
c 

write (6, 100) 
read(5,*)n 
do  10  i«l,n 
write(6,  no)  i 
read(5,*)pos(i) 
write (6, 120) i 
read(5,*) id(i) 
write(6, 130) i 
read  (5,  *)  t  (i) 

10  CONTINUE 
c 

15  write (6, 140) 
read ( 5 , * ) name 
answ~'y' 

inquire ( f ile*name , exist=f exist ) 
if (fexist) call  bmsg2(answ) 
if (answ.ne. 'y')goto  15 
open (20, file=name) 
rewind  20 
do  20  i  »l,n 

write ( 2  0 , * ) i , pos ( i ) , id ( i ) , t ( i ) 

20  CONTINUE 
c 
c 

100  format (lx, 'INPUT  NUMBER  OF  NODES  ON  ROUTE7, i3) 

110  format (lx, 'INPUT  DIST  OF  NODE  ALONG  ROUTE7, i3) 

120  format (lx, 'INPUT  IDENTIFIER  OF  NODE7 i3 , ) 

130  format (lx, 'INPUT  TIME  STEP  OF  NODE' i3 , ) 

140  format (lx, 'INPUT  NAME  OF  FILE  ROUTE  WILL  BE  SAVED  ON7) 


return 


entry  tred2 


write(6,145) 
read(5,*)n 
25  write (6, 150) 
read (5,*) name 

inquire ( f ile*name , exist=f exist ) 
if (.not. f exist) call  bmsgl 
if (.not. f exist) goto  25 
open ( 20 , file=name) 
do  30  i-l,n 

read (20, *) i,pos(i) ,id(i) ,t(i) 
30  CONTINUE 


145  format (lx, 'INPUT  NUMBER  OF  NODES  IN  ROUTE') 
150  format (lx, 'INPUT  NAME  OF  FILE  TO  BE  READ') 


return 

end 


c ******************************************************* 
c 

C  SUBROUTINE  VBLKVOL 
c 

c******************************************************* 

c 

svibroutine  vblkvol 
C 

c  Original  Bernier,  1982 ;Whitelaw,  1988. 

c 

c 

c  'vblkvol'  is  called  by  'vcntl' 

c 

c 

include  'spec.vgeom' 
include  'spec.vphys' 
include  'spec.vindex' 
include  'spec.vdata' 
include  ' spec . vcom2 ' 
include  'spec.vkgr' 

C 

c  dimension  y(5,2,16) ,elev(5,0:20,5) ,dep(5,16,5) , 
c  2  zdist(5) ,clev(5) ,alpha(5) ,diff (5) 

dimension  elev(5, 0:20, 5) ,alpha(5) ,diff (5) 

C 

C 

C************SECTI0N  1 
C 

C  This  section  now  selects  the  longest  grid  network  and  uses  the 

C  the  lengths  derived  from  its  incrementation  to  divide  the  other 

C  grids.  The  secondary  grids  will  obviously  not  fit  this 
C  perfectly  so  the  nearest  fit  (longer  or  shorter)  is  used. 

C 

ni«nl 

nn-ni+i 

c. 

do  5  k  ■  l,kno 
ni  ■  nlimk(k) 
cuml  *  0. 
x(k,0)  *  o. 
x(k, 1)  -  2  *  xi(k, l) 
c 

do  10  n*2,ni 

cuml  ■  xi(k,n)  -  x(k,n-l) 
cuml  -  2  *  cuml 
zdist  -  horiz(k,l) 

10  x(k,n)  -  x(k,n-l)  +  cuml 
05  CONTINUE 
c 
c 

c - SECTION  la - 

c 

c 

c  This  section  calculates  the  angular  shifts  for  the  non  central 
c  flow  lines  (eg  k=l  &  k=3  for  kno  -  3  ) .  hlen  is  input  as  the 

c  horizontal  distance  from  the  stream  to  the  watershed  running 

c  at  90  deg  from  the  stream. 


30 


do  30  k  ■  l,kno 

alpha(k)  =  asin(hlen(k)/x(k,ni) ) 

ksum  »  0 
do  32  k  -  1,3010 

ksum  *  ksum  +  k 
32  if(k.eq.kno)  Ik  *  ksum  /  kno 

do  35  k  *  l,kno 

dlff(k)  -  abs (alpha (k) -alpha (ik) ) 
35  shift (k)  -  cos(diff (k) ) 


-SECTION  2 


do  40  k^l, kno 

ni  ■  nlimk(k) 
do  40  n*l,ni 

avdep (k,n,l)  *  adepth 

avele(k,n,l)  *  yi(k,n)  -  avdep(k,n,l)  /  2. 
rdep  »  depmax(k,n)  -  avdep (k,n,l) 
sumdep  -  avdep (k,n,l) 
do  40  j-2,jno 
jx  -  j-1 

avdep (k,n,j)  »  bdepth(jx)  *  rdep 
sumdep  -  sumdep  +  avdep  ( k ,  n ,  j  ) 

40  avele(k,n,j)  =  yi(k,n)  -  (sumdep  -  avdep (k, n, j)/2. ) 

do  45  k  «  l,kno 

ni  -  nlimk(k) 
do  45  j  ■  l,jno 
do  44  n  «  l,ni-l 

elev(k,n,j)  *  avele(k,n,j)  +  ( (avele(k,n+i, j)  - 
&  avele(k, n, j ) )/2 . ) 

44  CONTINUE 

elev(k,0,j)  ■  avele(k,l,j)  -  (elev(k,l,j)  - 
&  avele(k, 1, j) ) 

elev(k,10, j)=  avele(k, 10, j )  +  (avele(k,10, j)  - 
&  elev (k, 9 ,  j ) ) 

45  CONTINUE 


- SECTION  3 


do  50  k-1 , kno 
km  *’k-l 
ni  -  nlimk(k) 
do  50  n*l,ni 
nn*n+l 

avwid(k,n)  -  xwidth(k, l)+( (xi(k,n)/x(k,ni) ) * (xwidth(k, 2) 

&  -xwidth(k, 1) ) ) 

avlen(k,n)  *  x(k,n)  -x(k,n-l) 

if(k.gt.l)  aslen(km,n)  «  (avwid(k,n)/2.)+(avwid(km,n)/2.) 
sumar(k,n)  *  avlen(k,n)  *  avwid(k,n) 


oonoooononn  ooooooooo 


do  50  j*l,jno 

asdl  *  (elev(k,n,j)  -  avele(k,n, j) )/2. 
asd2  *  (avele(k,n, j )  -  elev(k,n-l, j) )/2. 
avdrop(k,n, j)  *  asdl  +  asd2 
avslln(k,n, j)  =  sqrt( (avdrop(k,n, j) **2)  + 

&  (avlen(k,n)  **2)) 

sinphi  *  avlen(k,n)  /  avslln(k,n, j) 

awol(k,n,j)  =  (avdep(k,n,  j)  *avslln(k,n,  j)  *avwid(k, n) 

&  *  abs(sinphi))  *  (1-stonec ( j ) ) 

avslp(k,n,j)  =  avdrop(k,n, j)  /  avlen(kfn) 
smln(k)  =  smln(k)  +  avlen(k,n) 
if(k.eq.l)  goto  50 

asdrop(km,n, j )  *  avele(k,n,j)  -  avele(km,n, j) 
asslp(km,n, j)  *  asdrop(km,n, 1)  /  aslen(km,n) 
asslln (km, n, j )  *  sqrt(asdrop(km,n, j) **2  +  aslen(km,n) **2) 
50  CONTINUE 


»***********SECTION  4 

Now  that  most  of  the  averaging  proceedures  have  been  removed,  and 
the  remainder  transferred  to  section  3  above,  this  section  remains 
simply  to  calculate  the  total  area. 


sgarea  “  0. 
do  70  k-l,kno 

ni»nlimk(k) 
do  60  n«l',ni 

60  area(k)=area(k)+sumar (k,n) 

70  sgarea»sgarea+area(k) 


************SECTION  5 

The  areal  correction  proceedure  formerly  housed  in  section  5 
has  been  removed  for  the  time  being.  Now  that  there  is  no  need 
to  average  between  more  than  two  sets  of  linepairs  the  areal 
error  should  be  small. 

Only  a  few  calculations  remain  although  the  best  proceedure  for 
clevel  has  yet  to  be  decided. 

sqk*sgarea/ (1000 .**2) 
sumkm-sumkm+sqkm 
c 
c 
c 

80  CONTINUE 
C 

return 

end 

c 
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************************************************************************** 


SUBROUTINE  VCI 


************************************************************************* 


function  vci(UW) 


This  function  calculates  the  dynamic  part  of  the 
soil  strength  algorithm. 

Created  by  J.E.  Cochrane 

at  the  Department  of  Geography,  University  of  Bristol,  England. 
June,  1987. 


'vci'  is  called  by  'vouta' 


include  'spec.vcone' 
include  ' spec . vcone2 ' 

uw-(uv*100/2.54) 
e3»(ua+uw) *tan(phib) 
S3»(el-E2+E3)*E4 
sum-(sl*s2) -s3 
vci- sum 


2000  FORMAT (2X, '  Cl  -  ',F8.4) 
return 
end 
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c ******************************************************* 
c 

C  SUBROUTINE  VCNTL 
c 

c************************************************ ******* 

c 

subroutine  vcntl 
c 
c 

c  This  subroutine  controls  the  flow  of  control  in  the 
c  VS AS 2  scheme, 
c  Created  by  J.E.  Cochrane 
c  Original  by  Whitelav,  1988. 

c  at  the  Geography  Department,  University  of  Bristol,  England 
c  December,  1987. 


c 

c 

c  ' vcntl '  is  called  by  'link' 
c 

c  'vcntl' 
c 


calls 


'vmenu' 

'bmsgl' 

'bmsg2 ' 

'vreadl' 

'vread2 ' 

'vread3' 

'vcone' 

'vblkvol' 

'vinter' 

'vsurflo' 

'vinit' 

'vdrain' 

'vouta3 ' 

'voutbl' 

'voutb2' 

'voutb3' 


include 

include 

include 

include 

include 

include 

include 

include 

include 

include 

include 


' spec . vgeom ' 
'spec.vphys' 
'spec.vindex' 
'spec,  water' 
'spec.vtime' 

' spec . vdata ' 
'spec.vtitle' 
' spec . vcom2 ' 
'spec.vkgr' 

' spec . vcone ' 
'spec.vcone2' 


dimension  qqq(40) 
character  fname*l5,moi*15 
character  answ*i 
logical  fexist 
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call  vmenu 

if (nl.eq. 999) goto  1000 
20  write ( 6 , * ) ' INPUT  NAME  OF  SEGMENT  FILE' 
kl-1 

read ( 5 ,  * , iostat-kl , err*  2  0 ) f name 

inquire ( f ile-f name , exist-f exist ) 

if ( .not. fexist) call  bmsgl 

if (.not. f exist) goto  20 

open  ( 9 ,  f  ile-f name ,  status® '  old ' ,  err*  2  0 ) 

rewind  9 

22  write (6,*) ' INPUT  NAME  OF  STORM  FILE ' 
kl-1 

read ( 5 ,  * , iostat-kl , err®22 ) f name 

inquire ( f ile-fname , exist-f exist) 

if (.not. fexist) call  bmsgl 

if (.not. fexist) goto  22 

open ( 3 , f ile-f name , status* ' old ' , err*22 ) 

rewind  3 

24  write (6,*) ' INPUT  NAME  OF  INITIAL  MOISTURE  FILE' 
kl-1 

read ( 5 , * , iostat-kl , err=24 ) f name 

inquire ( f ile*f name , exist*f exist ) 

if ( . not . fexist) call  bmsgl 

if (.not. fexist) goto  24 

open ( 4 ,  f ile*f name , status* ' old ' , err*24 ) 

rewind  4 

26  write (6,*) 'INPUT  NAME  OF  SOIL  DESCRIPTION  FILE' 
kl-1 

read ( 5 , * , iostat-kl , err-26 ) f name 

inquire ( f ile-f name , exist*f exist ) 

if ( .not. fexist) call  bmsgl 

if (.not. fexist) goto  26 

open ( 2 , f ile-f name , status* ' old ' , err=26 ) 

rewind  2 

open ( 7 , f ile* ' v3dt . out ' ) 
rewind  7 
C 

answ- ' y ' 

5  write (6,*) 'PLEASE  ENTER  NAME  OF  OUTPUT  FILE' 

kl-1 

read ( 5 , * , iostat-kl , err*5 ) moi 
inquire ( f ile-moi , exist=f exist ) 
if (fexist) call  bmsg2(answ) 
if (answ. ne. 'y') goto  5 
open (12 , f ile-moi) 

SUMKM-0. 

C 

c'""Read  initial  data  and  print  headings 
c 

call  vreadl 
c  call  voutal 
IEND— 1-1 
M-l 
c 

c'" "Start  of  segment  specific  simulation.  Read  2  contains 
c'""data  for  each  segment. 


100  call  vread2 
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if (kno.ge. 99) goto  340 
call  vread3 
call  vcone 
IMIN-0 
I HOUR* 0 
IT-0 
IXM-0 
C 
C 

qq  -  0. 
c 

c#  ' ' ' ' Calculate  the  segment  geometry  and  print  it. 
c 

call  vblkvol 

c  if (nouta.eq.O)call  vouta2 
c 

c"" 'Start  of  hourly  simulation.  IT  represents  hours,  and  DRAIN  is 
c""  'called  every  KREP  times  per  hour,  with  LREP  repetitions  within 
c'""each  call.  The  loop  onto  161  allows  for  an  increased  timestep 
c ' ' ' ' ' to  be  used  from  the  start  of  simulation  until  an  8.  is  found 
c'""in  the  data  set,  at  which  time  the  steps  revert  to  15  &  5  mins 
c'""or  whatever  the  LREP  &  KREP  values  are  set  to  below, 
c 

160  IT-IT+1 
IF(IT.GT.IEND)  GOTO  100 

v  IF(PRECIP(IT) .LT.8. )GOTO  161 
LREP* 3 
KREP—4 

PRECIP ( IT) ”0 . 0 

161  RAIN—PRECIP ( IT ) 
c 

c"" 'INTER  is  called  to  calculate  the  effective  precip  and  surflo 
c"" 'calcs  the  surface  runoff.  PNR  is  effective  precipitation  minus 
c'""the  amount  taken  as  surface  runoff  (ie  so  that  it's  not  added 
c'""to  the  subsurface  as  well  in  drain) 
c 

call  vinter (IMONTH, IT, RAIN, PNET) 

CSS-0. 

IF  ( PNET . GT . 0 . ) call  vsurf lo (A1 , A2 , PNET, CSS) 

PNR- ( (PNET*sgarea) - (PNET* (A1+A2 ))) /sgarea 
C 
c 

c'""The  loop  below  calls  INIT  on  the  first  pass  for  each  segment 
c'""and  DRAIN  on  every  pass.  The  K  passed  to  drain  is  not  K  as  in 
c" " 'subsegments,  but  K  from  KREP 
c 
c 

DO  305  K-l , KREP 

if (it.eq.l.and.k.eq.l)  call  vinit 
call  vdrain(K) 

IX-IXM+l 
305  CONTINUE 

C 
c 

c'"''The  next  bit  (down  to  310)  adds  together  the  direct  runoff 
c""'(from  SURFLO  above)  and  the  flow  to  the  stream  emerging 
c"" 'DRAIN.  FLOW(K,J)  is  outflow  from  each  depth  (j)  of  each 
c subsegment  (k) . 
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qacss/3 . 6 
c 

do  310  k=l,kno 

eflow(k)  -  0. 

DO  310  J«l,JNO 

eflow(k)=eflow(k)  +  flow(k,j) 
310  q=q+flow(k, j ) 

999  format ('MAIN  :',f9.4) 

***  Accumulate  all  flows  in  m3/hr 

qq»=qq+(q*3.6) 


"  " 'out A 3  print  an  hourly  results  summary,  OUTBland  OUTB2  are 
"'"called  to  accumulate  results  to  be  printed  at  the  end  of 
'""the  simulation. 

if (ntmp.eq.O)call  vouta3 
call  voutbl(isgno, it) 

if  (it.ge. (iend-1) ) qqq(isgno)=qq 


call  voutb2(it,q,pnet,rain) 
goto  160 

***  New  array'  to  sum  total  runoff  volumes  for  each  segment 

340  call  voutb3 (it,mno) 

do  600  nnn=l,mno 
600  qqqq*qqqq+qqq ( nnn ) 

close (2) 
close (3) 
close (4) 
close (7) 
close (9) 
close (12) 

WRITE (7, 500) 

WRITE (7, 501) (NNN,QQQ(NNN) ,NNN=1,MN0) 

WRITE (7 , 502) QQQQ 

500  FORMAT (IX, 'OUTFLOW  VOLUMES  PER  SEGMENT  (M3)') 

501  FORMAT ( 5X, 12 , 3X, F15 . 3 ) 

502  FORMAT (IX, 'TOTAL  OUTFLOW  FOR  SIM.  PERIOD  (M3)',F15.3) 
C 

350  FORMAT ( '  END  OF  JOB') 

C 

1000  return 


c  FUNCTION 


VCON 


nonn 


c 

************************************************************************** 
SUBROUTINE  VCONE 


************************************************************************* 

C 

subroutine  vcone 
C 

c  This  subroutine  calculates  the  static  part  of  the 
c  soil  strength  algorithm, 
c  Created  by  J.E.  Cochrane 

c  at  the  Geography  Department,  University  of  Bristol,  England. 

c 

c 

c  'vcone'  is  called  by  'vcntl' 

c 

c 

include  'spec. vcone' 
include  ' spec . vcone2 ' 
c 

real  m 

alpha- (22*2*alpha)/ (7*360) 
phi-(22*2*phi)/ (7*360) 
phib-(22*2*phib)/ (7*360) 
m-(4*sin(phi) )/ (3* (l+sin(phi) ) ) 

1000  FORMAT(2X, 'M  -  ',F9.7) 

bl- (tan (alpha) +tan (phi) ) *tan (alpha) *8 

al*l-m 

a2-2-m 

a3»3-m 

b2-d*d*al*a2*a3 
b3-(gg* (1/ tan (phi) ) ) **m 
b4* (gamma) **al 
Sl«(bl*b3*b4)/b2 
c 

dl«( (c/gamma) *(l/tan(phi) )+aal+zz) **a3 
d2«( (c/gamma) * (1/tan (phi) )+zz) **a3 
d3»( ( c/ gamma) * (1/tan (phi) )+zz) **a2 
d3-d3*a3*aal 
s2-dl-d2-d3 
c 

el-c*tan ( alpha ) * ( 1/ tan ( phi ) ) 
e2-ua*tan(phi) 

e4-(4*aal*aal*tan(alpha) )/(d*d) 
c 

876  CONTINUE 
return 
end 
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C********** *********** ********************** ************* 

c 

c  SUBROUTINE  VDRAIN 
c 

c*** ************* ********* ******************** *********** 

c 

subroutine  vdrain(kk) 
c 

c  Much  of  the  code  here  is  taken  directly  from  the  old  drain 
c  subroutine  in  vsas2.  It  has  been  modified  to  include  the 

c  new  array  sizes  and  variable  names  for  vsas3  and  to  call 

c  latflo  to  transfer  moisture  between  the  numerical  grids 

c  A  k  loop  is  introduced  to  allow  simulation  of  each  grid  in 
c  turn. 

c  Original  by  Bernier,  1982 ;Whitelaw,  1988. 

c 

c 

c  'vdrain'  is  called  by  'vcntl' 
c 

c  /vdrain/  calls  /vlatflo2/ 

c  /vxmatrx/ 

c 

c 

c 

c 

include  ' spec . vgeom ' 
include  ' spec.vphys' 
include  'Spec.vindex' 
include  ' spec . vdata ' 
include  'spec.vwater' 
include  ' spec . vkgr ' 
c 

dimension  xflo(5,l6,5) 
c 
c 

c  fac  converts  cm/hr  to  m/hr  and  divides  the  xflos  into  fractions 

c  of  hours  depending  on  the  iteration  controls  lrep  &  krep 

c 

fac  *  0.01  /  (float (krep*lrep) ) 
c 

do  100  1  *  l,lrep 
ix  -  2 

do  95  k  *  1,1 

ni  «  nlimk(k) 

30  do  90  jss“  l,jno 

j s  -  jno-jss+l 
jx  -  js+(2-ix) 
if ( jx.gt. jno)  goto  90 
do  90  ns  =  l,ni 

nx  *  ns-(ix-l) 
c 

c  The  only  iteration  controls  currently  engaged  are  to  omit 
c  the  krep/lrep  iterations  (usually  5  mins)  if  the  moisture 
c  potential  is  less  than  -3.0  cm.  An  input  variable  or 
c  internally  determined  value  might  replace  this  situation, 
c 

c  if  (1 .ne. l.and. (poten(k, nx, jx) . It . (-3 . ) .and.nx.ne. 0) ) 


C' 

c 

c 


c 

c 


c 


c 

C' 

c 


c 

c 

c 


c 

c 

c 


c 

c 


— - section  2— - adds  net  precip  to  surface  and  calculates 

conductivities  and  matric  potentials. 

tpbv  «  smcvol(k,ns, js)/awol  (k,ns, js) 

if  (js.eq.l)  smcvoi (k,ns, js)=smcvol (k,ns, js) + (pnr*sumar (k, ns 
&  /(100.*lrep*krep) ) 

tpbv  =  (tpbv+smcvol (k,ns,  js)/awol(k,ns,  js)  )/2. 

pres (k, ns, js)=amaxl(pres(k,n, js) , (clevel-avele(k,ns, js) ) 

&  *100.) 

tpbv  *  aminl(poros(k,ns, js) , tpbv) 
poten(k,ns, js)  -  vxmatrx(k,ns, js, tpbv) 
if  (pres(k,ns, js) .gt.O. )  poten(k,ns, js)  *  pres (k,ns, js) 
conduc(k,ns, js)  *  vcon(k,ns, js, tpbv) 

45  if  (awol(k,ns,  js)  .le.O. )  goto  90 

if  (tpbv. It. 0.01)  goto  90 

if  (nx.ne.O)  goto  50 

- section  3 - flow  from  streamside  elements  into  stream 

grad  -  amaxl(0. , ( ( (avele(k,ns, js) - (avele(k,ns, 5) )+clevel) ) 

&  *100.  +  poten(k,ns, js) )/dist(k,ns, js,2) ) 

grad  -  0.0 

uscon  -  conduc(k,ns, js) 
goto  65 

- section  4-- - calcs  parameters  for  flow  between  elements 

50  eldrop  *  avele(k,ns, js)-avele(k,nx, jx) 
potdif  *  poten(k,ns, js)  -  poten(k,nx, jx) 
grad  ■  (potdif  +  (eldrop  *  100.))  /  dist(k,ns, js, ix) 
if  (ix.eq.l)  then 

top  ■  (avdep(k,ns, js) +avdep(k,nx, jx) ) *100. 
bots  *  (avdep(k,ns, js) *100. )/conduc(k,ns, js) 
botx  =  (avdep(k,nx, jx) *100. )/conduc(k,nx, jx) 
uscon  *  top  /  (bots+botx) 

else 

top  *  (avslln(k,ns, js)+avslln(k,nx, jx) ) *100. 
bots  *  (avslln(k,ns, js) *100. ) /conduc (k, ns , js) 
botx  =  (avslln(k,nx, jx) *100. )/conduc(k,nx, jx) 
uscon  ■  top  /  (bots+botx) 

endif 

- section  5 - calculates  flows  and  updates  moisture  contents 

65  xflo(k,ns, js)  -  grad  *  sarea (k,ns , js , ix)  *  uscon  *  fac 
if(ix.eq.2J  xflo (k, ns , js)  *  xflo(k, ns, js)  *  shift(k) 
if  (nx.eq.0)  goto  85 
if  (ix.eq.2)  goto  80 

extra  -  smcvoi (k,nx,jx)  +  xflo(k, ns, js)  -  smcmax(k,nx, jx) 
if (extra. le. 0. )  goto  80 

xflo(k,ns, js)  -  xflo(k,ns, js)  -  extra 

80  smcvoi (k,nx,jx)  -  smcvoi (k, nx, jx)  +  xflo(k,ns, js) 

85  smcvoi (k, ns, js)  «  smcvoi (k, ns, js)  -  xf lo(k, ns , js) 


90  CONTINUE 


if  (ix.eq.l)  then 

ix  -  2 
goto  95 

else 

if (Jc.lt. kno)  call  vlatflo2(k) 
ix-1 
end  if 

xflo  has  now  been  declared  as  an  array  in  order  to  allow  the 
outflows  to  be  accumulated  after  the  call  to  latflo  has  been 
made. 

if (l.ne. l.or.Jck.ne.  1)  goto  117 
do  115  j  =  l,jno 
115  flow(k, j )  *  0. 

117  CONTINUE 

do  120  j  -  l,jno 

flow(k,j)  -  flow(k, j)  +  (  xflo(k, 1, j)  /  3.6  ) 

120  CONTINUE 


goto  30 

95  CONTINUE 
100  CONTINUE 

- section  6 - • — slopewise  flows  from  surface  layers 

do  110  k  *  1,1 

ni  *  nlimk(k) 
do  110  n  -  l,ni 

extra  -  amaxl(0. ,smcvol(k,n,l)-smcmax(k,n,l)) 
if  (n.eq.l)  flow(k,l)  =  flow(k,l)  +  extra 
smcvol (k,n, 1)  =  smcvol (k,n, 1)  -  extra 

if  (n.gt.l)  smcvol (k,n-l,l)*smcvol(k,n-l,l)+extra 
do  110  j  *  l,jno 

pres(k,n,j)  «  amaxl(0. ,pres(k,n, j) ) 
pbv(k,n,j)  *  smcvol  (k,n,j)  /  awol(k,n,j) 

110  CONTINUE 


return 


q*  *****************************************************  * 

c 

c  SUBROUTINE  VINIT 
c 

q*******  ***********************************************  * 

C 

subroutine  vinit 
C 

c  Original  by  Bernier,  1982 ;Whitelaw,  1988. 

c 

c 

c  /vinit/  is  called  by  'vcntl' 

c 

c 

include  ' spec . vgeom ' 
include  ' spec.vphys' 
include  ' spec . vindex ' 
include  'spec. water' 
include  ' spec . vdata ' 
include  'spec.vkgr' 
include  ' spec . vcom2 ' 

C 

C****  This  is  a  revised  version  of  the  INIT  subroutine  designed 
C  to  allow  the  use  of  three  dimensional  proceedures  in  DRAIN 

C  Moisture  contents  and  soil  properties  are  still  allocated 

C  in  the  same  manner,  with  an  outside  loop  for  k  (kno-1) 

C  being  the  number  of  internal  grid  networks.  The  geometric 

C  properties  are  derived  from  the  new  version  of  BLKVOL  . 

C 

C 

do  210  k~l,kno 

comlen  *  0. 
nii  ■  nlimk(k) 
do  210  n«l,nii 
C 

C  This  section  allocates  soil  moisture  properties  to  the 
C  geometric  elements  from  BLKVOL. 

C 

c 

c'""The  three  proportional  distances  represented  by  POS  1-3 
c'""are  converted  to  real  distances  and  used  to  choose  which  of 
c'""the  soil  property  set  should  be  given  to  that  element, 
c' "  "It  should  be  noted  that  the  distances  are  not  the  same  for 
c  "  "  ' each  subsegment 
c 

tposl  -  ( (horiz(k, l)+horiz (k+1,1) )/2. ) *pos(l) 
tpos2  «  ( (horiz (k, l)+horiz (k+1, 1) )/2 . ) *pos(2) 
comlen. -  comlen  +  avlen(k,n) 
c 
c 

if (comlen. gt.tpos2)  then 
do  250  j«l,jno 

ca(k,n, j)«ca3(k, j) 
cb(k,n, j)=cb3 (k, j) 
cmax(k,n, j)*cmax3 (k, j) 
poros (k, n, j ) =poros3 (k, j ) 

250  CONTINUE 


nno 


elseif  (comlen.gt . tposl. and. comlen. le. tpos2)  then 
do  260  j*»l,jno 

ca(k,n, j)-ca2(k, j) 
cb(k,n, j)*cb2 (k,  j) 
cmax(k,n, j)«cmax2 (k,  j) 
poros(k,n, j)-poros2 (k,  j) 

260  CONTINUE 

else 

do  270  j»l,jno 

ca (k, n, j ) *cal (k,  j ) 
cb (k, n, j ) *cbl (k, j ) 
cmax  (k,  n,  j )  «cmaxl  (k,  j ) 
poros(k,n, j ) «porosl(k, j ) 

270  CONTINUE 

endif 

210  CONTINUE 

The  next  section  calcultes  areas  and  distances  for  inter  element 
flows.  The  recalculation  is  required  here  to  allow  for  possible 
future  uses  of  RECOM 

do  300  k*l,kno 

nil  *  nlimk(k) 
do  300  n«l,nii 
do  280  j  -  l,jno 

if (j .ne. jno)dist(k,n, j , 1) «(avdep(k,n, j)+avdep(kf n, j+l) ) *50. 
if (n.ne.l)dist(k,n, j ,2)-(avslln(k,n, j)+avslln(k,n-l, j) ) *50. 
if (n.eq.l)dist(k,n, j ,2)«avslln(k,n, j) *100. 

if (k.lt.kno)  dist(k,n, j,3)»(asslln(k,n, j)+asslln(k+l,n, j) ) *50. 

if  (j  .ne.  jno)  sarea(k,n,  j  ,  l)»=avlen(k,n)  *avwid(k,n)  *  (l-stonec(  j ) 

*  +stonec( j+l) )/2 . 

sarea  ( k ,  n ,  j  ,  2 )  =  ( 1-stonec  ( j ) )  *awol  ( k ,  n ,  j  )  /avsl In 

*  (k,n, j) *avlen(k,n)/avslln(k,n, j ) 
sarea  ( k ,  n ,  j  ,  3 )  *  ( 1-stonec  ( j ) )  *awol  (k ,  n ,  j )  /avwid  (k,  n) 
smcmax(k,n,  j ) -poros (k,n,  j)  *awol(k,n,  j) 


xlevel ( j ) »aminl (xlevel ( j ) , amaxl ( clevel , avele (k, 1 , j ) 
&  -avdrop (k,l,j)/2.)) 

pbv(k,n, j )  -  pbv(k,n, j )  *  poros(k,n,j) 
pbv(k,n, j)  «  aminl (poros (k,n, j) ,pbv(k,n, j) ) 
smcvol(k,n, j)  *  pbv(k,n,j)  *  awol(k,n,j) 

280  CONTINUE 

300  CONTINUE 


return 


oooooooooooooooo 


c 

C*  ************************************  * ***************** 

c 

c  SUBROUTINE  VINTER 
c 

c******************************** ************** ********* 
c 

SUBROUTINE  vinter (MONTH , IT , PRECIP , PNET) 

The  purpose  of  this  subroutine  is  to  collect  rainfall  in  a 
storage  represented  by  AIMAX  until  it  is  filled  and  then  to 
transmit  any  further  rainfall  directly  to  the  catchment. 
Every  hour  the  storage  yields  20%  of  its  volume  to  the 
catchment  as  stemflow  and  drip.  Storage  values  vary  with 
season  as  represented  by  the  month.  A  rain  free  period  of 
24  hours  will  reset  the  storage  to  0. 

Original  by  Bernier,  1982;Whitelaw,  1988. 


'vinter'  is  called  by  'vcntl' 


0.249cm  (dormant)  0.254cm  (growing) 
AIMAX-0.249 

IF (MONTH  . GE . 5 . AND . MONTH . LT . 11 ) AIMAX—0 .254 

IF ( IT . EQ . 1 ) AIDEF-AIMAX 

IF ( IT . EQ . 1 ) I COUNT* IT 

IF  ( PRECIP'.  GT .  0 )  ICOUNT-IT 

IF ( IT-ICOUNT . GE . 2  4 ) AIDEF-AIMAX 

IF ( IT-ICOUNT . GE . 2 4 ) ICOUNT-IT 

XLOSS— AMIN1 (PRECIP, AIDEF) 

AIDEF— AIDEF-XLOSS 

PNET— ( PRECIP-XIOSS ) + ( (AIMAX -AIDEF) *05./100. ) 
AIDEF-AIDEF+ ( (AIMAX-AIDEF) *20 ./100 . ) 

RETURN 

END 


C********* *********** ********* ************* ************* 

c 

c  SUBROUTINE  VLATFLO 
c 

c*** ******************* ********** ****** ***************** 

c 

c 

subroutine  vlatflo(k) 
c 
c 

c  This  is  a  service  subroutine  for  drain  to  calculate 
c  the  lateral  flows  between  the  grids  within  segments, 
c  It  is  called  after  the  stream  directed  slopewise  flows 
c  have  been  done  in  drain  (ie  when  ix  *  2) 
c 
c 

include  'spec.vgeom' 
include  ' spec . vphys ' 
include  ' spec . vindex ' 
include  ' spec . vkgr ' 
c 
c 
c 

fac~l./ (float (krep*lrep) ) 
ni  -  minO  (nlimk(k) ,nlimk(k+l) ) 
c 

do  10  j  -  l,jno 
do  20  n  »'  l,ni 
c 
c 
c 
c 

eldrop  =  avele(k,n,j)  -  avele(k+l,n, j) 
grad  ~(poten(k,n, j) -poten(k+l,n, j)+eldrop 
&  *100. )/dist (k,n, j , 3) 

tcon  •*  amaxl(conduc(k+l,n,  j)  ,aminl( conduc( k,n,j) 
&  ,cmax(k+l,n, j) ) ) 

uscon  -  (dist(k,n, j ,  3)/50. )/( (asslln(k,n, j)/ 

&  conduc(k,n, j ) )+(asslln(k+l,n, j)/tcon) ) 

xflo  *  grad*sarea(k+l,n, j , 3) *uscon*fac 
c 
c 

smcvol (k+l,nf j)  =  smcvol (k+l,n, j )  +  xflo 
smcvol(k,n, j)  =  smcvol (k,n, j )  -  xflo 

c 
c 

20  CONTINUE 
10  CONTINUE 
c 
c 

return 

end 


c****************************************************** 

c 

C  SUBROUTINE  VLATFL02 
c 

c****** ************************************ ************ 

c 

c 

subroutine  vlatf lo2 (k) 
c 
c 

c  This  is  a  service  subroutine  for  drain  to  calculate 
c  the  lateral  flows  between  the  grids  within  segments, 
c  It  is  called  after  the  stream  directed  slopewise  flows 
c  have  been  done  in  drain  (ie  when  ix  «  2) 
c  Original  by  Bernier,  1982;Whitelaw,  1988. 
c 
c 

c  /vlatflo2/  is  called  by  'vdrain' 

c 

c 

include  ' spec . vgeom ' 
include  ' spec . vphys ' 
include  ' spec. vindex' 
include  ' spec . vcom2 ' 
include  'spec. vkgr' 
c 
c 
c 

fac-  0.01  / (float (krep*lrep) ) 
ni  ■  minO  (nlimk(k) , nlimk(k+l) ) 
c 

do  10  j  ■  l,jno 
do  20  n  *>  l,ni 
c 
c 

recpt  -  xi(k,n)  -  roffst(k+l) 
if (recpt. le. 0. )  goto  20 
if (recpt. gt.x(k,ni) )  goto  20 
c 

do  30  n2-l,ni 

xptl  *  xi(k+l,n2) 
xpt2  -  xi(k+l,n2+l) 
if ( xptl . le . recpt . and . xpt2 . gt . recpt ) 

&  nkeypt  -  n2 

30  CONTINUE 
C 

testl  *  smcvol(k,n, j)/awol(k,n, j) 
test2  *  smcvol  (k+1, nkeypt,  j)/awol  (k+1, nkeypt,  j) 
test3  *  smcvol  (k+1,  nkeypt+1,  j  ) /awol  (k+1,  nkeypt+1 ,  j) 
if (testl. le. 0. 10. or. test2 . le. 0. 10. or . test3 . le. 0. 10) 

&  goto  2  0 
c 

rlen2  -  xi (k+1, nkeypt+1)  -  recpt 
rlenl  -  recpt  -  xi( k+1, nkeypt) 
if ( rlenl . It . 0 . . or . rlen2 . It . 0 . ) goto  2  0 
c 

weighl  *  rlen2/ (rlenl+rlen2) 
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weigh2  -  rlenl/ (rlenl+rlen2) 

fdist  «  (asslln(k,n,j)+((asslln(k+l,nkeypt,j)*weighl)+ 
&  (asslln(k+l,nkeypt+l, j) *weigh2) ) )  /  2. 

eldrop  -  avele(k,n, j) -( (avele(k+l,nkeypt, j ) *weighl)+ 

&  (avele(k+l,nkeypt+l, j) *weigh2) ) 

potdif  -  poten(k,n, j)-((poten(k+l,nkeypt, j)*weighl)+ 

*  (poten(k+l,nkeypt+l, j ) *weigh2) ) 

if  (eldrop. le. 0. )  potdif  «  abs (potdif) 
grad  *  (potdif  +  (eldrop  *  100.))  / (fdist*100. ) 


top  *  (asslln(k,n, j)+asslln(k+l,nkeypt, j) ) *100. 
bots  «  (asslln(k,n, j) *100. )/conduc(k,n, j) 
botx  -  (asslln(k+l,nkeypt, j) *100. )/conduc(k+l,nkeypt, j) 
usconl  -  top  /  (bots+botx) 

top  -  (asslln(k,n, j)+asslln(k+l,nkeypt+l, j) ) *100. 
botx  *  (asslln(k+l,nkeypt+l, j ) *100. )/conduc(k+l,nkeypt+i, j) 
uscon2  *  top  /  (bots+botx) 

uscon  -  (usconl*weighl)  +  (uscon2*weigh2) 

f areal  «  sarea(k+l,nkeypt, j ,3)  *  weigh2 
farea2  *  sarea(k+l,nkeypt+l, j ,3)  *  weighl 

farea  «  fareal  +  farea2 

xflo  »  grad  *  farea  *  uscon  *  fac 

xflol  -  xflo  *  weighl 
xflo2  -  xflo  *  weigh2 


smcvol (k+l,nkeypt,j )  *  smcvol (k+l,nkeypt,j )  +  xflol 
smcvol (k+1 , nkeypt+1 , j )  -smcvol (k+l , nkeypt+i , j ) 

&  +  xflo2 

smcvol(k,n, j)  =  smcvol (k,n,j)  -  (xflol+xflo2) 


20  CONTINUE 
10  CONTINUE 


return 

end 
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C******** ******** ************************************* * 

c 

C  SUBROUTINE  VMENU 

c 

c**************** ****** ******************* ******* ****** 
c 

subroutine  vmenu 
c 
c 

c  This  subroutine  allows  the  user  to  interactively  edit 
c  input  files  for  VSAS2  or  run  VS AS 2 . 
c  Created  by  J.E.  Cochrane 

c  at  the  Geography  Department,  University  of  Bristol,  England 
c  December,  1987. 
c 


c 

c  'vmenu' 

is  called  by  'vcntl 

c 

c  'vmenu' 

calls  'bmsg2 ' 

c 

'wiew' 

c 

'bmsgl' 

c 

'vreadl' 

c 

'vread2' 

c 

'vread3 ' 

c 

c 

include  ' spec. vgeom' 
include  ' Spec. vphys' 
include  'spec.vindex' 
include  ' spec . vwater ' 
include  'spec.vtime' 
include  ' spec . vdata ' 
include  ' spec . vcom2 ' 
include  'spec.vkgr' 
include  'spec. vcone' 


character  fname*20 
character  answ*i 
logical  fexist 


1  write (6,*) 'MENU  SELECTION' 

write (6,*) '1.  CREATE  A  NEW  DATA  FILE' 

write (6,*) '2.  CHANGE  AN  EXISTING  DATA  FILE' 

write ( 6 , * ) ' 3 .  RUN  VSAS2 ' 

write (6,0) '4.  EXIT  WITHOUT  A  RUN' 

read (5, *) ii 

goto (5,430, 1000,1010) ii 
5  kl-1 

10  write (6,*) 'INPUT  NUMBER  OF  SEGMENTS' 
write (6,*) 'PRESENT  VALUE  IS  ',mno 
read (5 , * , iostat*kl , err*l0 ) mno 
if ( jr.gt.o)goto  435 
40  write(6, *) 'INPUT  NAME  OF  SEGMENT' 
write ( 6 , * ) ' PRESENT  NAME  IS  ' , name 


o  o 
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read  { 5 , * , iostat-kl , err-4  0 ) name 
if { jr.gt.O)goto  435 

45  write (6 ,*)  ' INPUT  ANY  NOTE  YOU  WISH  TO  HAVE  IN  DATA  FILE' 
write  ( 6 ,  * )  '  PRESENT  NOTE  IS  ',note 
kl-1 

read ( 5 ,  * , iostat-kl , err-4  5 ) note 
if ( jr.gt.O)goto  435 

50  write ( 6 ,  * ) ' INPUT  NO.  OF  COARSE  SCALE  ITERATIONS  IN  1  HOUR' 
write (6,*) 'PRESENT  VALUE  IS  ',krep 
kl-1 

read ( 5 ,  * , iostat-kl , err=50 ) krep 
if (jr.gt.O)goto  435 

55  write (6,*) ' INPUT  NO.  OF  FINE  SCALE  ITERATIONS  WITHIN  COARSE  SCALE' 
wtite(6,*) 'PRESENT  VALUE  IS  ',lrep 
kl-1 

read ( 5 , * , iostat-kl , er r=5  5 ) 1 r ep 
if ( jr.gt.0)goto  435 

70  write(6,*) 'INPUT  NO.  OF  HOURS  BETWEEN  PRINTOUTS' 
write(6,*) 'PRESENT  VALUE  IS  ',npo 

kl-1 

read ( 5 ,  * , iostat-kl , err-7  0 ) npo 
if ( jr.gt.Ojgoto  435 

71  write (6,*) 'INPUT  OPTION  FOR  PRINTING  SEGMENT  GEOMETRY' 
write (6, *) '0  -  PRINT,  >0  -  NO  PRINT' 

write (6,*) 'PRESENT  VALUE  IS  ',nouta 
kl-1 

read ( 5 , * , iostat-kl , err*7 1 ) nouta 
if ( jr.gt.0)goto  435 


120  write(6,*) 'INPUT  OPTION  FOR  CALC.  AREAS  OF  100  &  75%  SATURATION' 
write ( 6 , * ) ' 0  -  CALCULATED,  >0  -  NOT  CALCULATED' 
write (6,*) 'PRESENT  VALUE  IS  ',ntmp 
kl-1 

read ( 5 , * , iostat-kl , err- 12  0 ) ntmp 
if (jr.gt.O)goto  435 
125  write (6,*) 'INPUT  SEGMENT  NUMBER' 

write(6,*) 'PRESENT  VALUE  IS  ' , isgno 
kl-1 

read (5,*, iostat-kl, err- 12 5) isgno 
if (ir.gt.O)goto  435 

130  write(6,*) 'INPUT  TOTAL  NUMBER  OF  SEGMENTS' 
write ( 6 , * ) ' PRESENT  VALUE  IS  ' , kno 
kl-1 

read ( 5 , * , iostat-kl , err-1 3  0 ) kno 
if (jr.gt.O)goto  435 

140  write(6,*) 'INPUT  NUMBER  OS  SOIL  LAYERS' 
write (6,*) 'PRESENT  VALUE  IS  ',jno 
kl-1 

read ( 5 , * , iostat-kl , err-140) jno 
if (jr.gt.O)goto  435 

145  write(6,*) 'INPUT  ROUTING  DELAY  (MINS)' 
write (6,*) 'PRESENT  VALUE  IS  ' , irout 
kl-1 

read (5,*, iostat-kl, err-14 5) irout 
if (jr.gt.o)goto  435 


150  write (6,*) 'INPUT  SEGMENT  AREA' 

write (6,*) 'PRESENT  VALUE  IS  ', sgarea 
kl-1 

read (5, *, iostat-kl, err-150) sgarea 
if (jr.gt.o)goto  435 
160  write(6,*) 'INPUT  CLEVEL' 

write (6,*) 'PRESENT  VALUE  IS  ',clevel 
kl-1 

read ( 5 , * , iostat-kl , err-160 ) clevel 
if ( jr.gt.0)goto  435 

198  do  200  i-l,jno 

202  write (6,*) 'INPUT  STONE  CONTENT  IN  LAYER  ',jno 
write(6,*) 'PRESENT  VALUE  IS  ',stonec(i) 
kl-1 

200  read (5 , * , iostat-kl , err-198 ) stonec ( i) 
if (jr.gt.O)goto  435 
215  do  230  i-1,1 

222  write (6,*) 'INPUT  NUMBER  OF  INCREMENTS  ON  SLOPE' 
write(6,*) 'PRESENT  VALUE  IS  ' ,nlimk(i) 
kl-1 

230  read ( 5 , * , iostat=kl , err=22  2 ) nl ink ( i ) 
if (jr.gt.O)goto  435 

231  do  240  k-l,kno 
nn-nlimk(kno) 
do  238  n-l,nn 

235  write (6,*) 'INPUT  ELEVATION  NUMBER  ' ,n, '  FOR  SEGMENT  NO 
write (6,*) 'PRESENT  VALUE  IS  ',yi(k,n) 

kl-1 

read ( 5 , * , iostat=kl , err- 2  3  5 ) y i ( k , n) 
if (jr.gt.O)goto  435 

236  write (6 ,*) 'INPUT  SOIL  THICKNESS  OF  INCREMENT  ',n 
write ( 6 , * ) ' PRESENT  VALUE  IS  ' , depmax ( k , n) 

kl-1 

read ( 5 ,  * , iostat-kl , err- 2  3  6 ) depmax ( k ,  n ) 
if (jr.gt.O)goto  435 

237  write (6,*) 'INPUT  DISTANCE  FROM  STREAM  OF  INCREMENT  ',n 
write(6,*) 'PRESENT  VALUE  IS  '#xi(k,n) 

kl-1 

read ( 5 , * , iostat-kl , err=2  37 ) xi (k, n) 
if ( jr.gt. 0) goto  435 

238  CONTINUE 

240  CONTINUE 

if (jr.gt. 0)goto  435 

241  do  250  i-l,kno 

242  wr ite ( 6 , * ) ' INPUT  STREAM  FRONT  WIDTH  OF  SEGMENT  NO.  ',i 

write (6,*) 'PRESENT  VALUE  IS  ' , xwidth ( i , 1 ) 
kl-1 

read ( 5 , * , iostat-kl , err-2  4  2 ) xwidth ( i , 1 ) 

245  write(6, *) 'INPUT  WATERSHED  WIDTH  ON  SEG  NO.  ',i 
wr ite ( 6, *) 'PRESENT  VALUE  IS  ', xwidth ( i , 2 ) 
kl-1 

250  read ( 5, *, iostat-kl, err*24 5) xwidth (i, 2) 
if (jr.gt. 0)goto  435 

251  do  257  i-l,kno 

252  write(6,*) 'INPUT  LEFT  SIDE  DISTANCE  ON  SEG  NO.  ',i 
write (6,*) 'PRESENT  VALUE  IS  ',horiz(i,l) 


kl-1 

read (5,*, iostat-kl, err-252)horiz (i, 1) 

255  write ( 6 ,  * ) ' INPUT  RIGHT  HAND  SIDE  DISTANCE  ON  SEG  NO.  ',i 
write (6, *) ' PRESENT  VALUE  IS  ',horiz(i,2) 
kl-1 

257  read ( 5 , * , iostat-kl , err-255) horiz ( i , 2 ) 
if ( jr.gt. O)goto  435 

258  write ( 6 , * ) ' INPUT  DEPTH  OF  TOP  LAYER' 
write (6,*) 'PRESENT  VALUE  IS  ',adepth 
kl-1 

read ( 5 , * , iostat-kl , err-2 58 ) adepth 
if (jr.gt. O)goto  435 

260  do  264  i«2,jno-l 

261  write (6,*) 'INPUT  PROPORTION  OF  DEPTH  (MINUS  TOP  LAYER)  FOR  LAYER 
kl-1 

write (6,*) 'PRESENT  VALUE  IS  ',bdepth(i) 
kl-1 

264  read ( 5 , * , iostat-kl , err-2  6 1 ) bdepth ( i ) 
if (jr.gt. 0)goto  435 

265  write(6,*) 'INPUT  ATEST' 

write (6,*) 'PRESENT  VALUE  IS  ', atest 
kl-1 

read ( 5 , * , iostat-kl , err-2  65 ) atest 
if (jr.gt. 0) goto  435 

266  write (6,*) 'INPUT  CDEPTH' 

write (6 , *) 'PRESENT  VALUE  IS  ' , cdepth 
kl-1 

read ( 5 , * , iostat-kl , err-2  66 ) cdepth 
if (jr.gt. 0)goto  435 

267  write (6,*) 'INPUT  Al' 
write(6,*) 'PRESENT  VALUE  IS  ',al 
kl-1 

read ( 5 , * , iostat-kl , err-2  67 ) al 
if (jr.gt. 0)goto  435 
270  write (6,*) 'INPUT  A2 ' 

write (6,*) 'PRESENT  VALUE  IS  ' , a2 
kl-1 

read (5,*, iostat-kl, err-2 70) a2 
if (jr.gt. 0) goto  435 
do  275  i-1 ,  krvo-1 

274  write (6,*) 'INPUT  R0FFST  NUMBER  ',i 
write(6,*) 'PRESENT  VALUE  IS  ',roffst(i) 
kl-1 

275  read ( 5, *, iostat-kl, err-2 74) roffst(i) 
if (jr.gt. 0)goto  435 

276  do  300  k-l,kno 

277  do  283  j-l,jno 

278  write (6,*) 'INPUT  CMAX1  FOR  LAYER  ',j 
write(6,*) 'PRESENT  VALUE  IS  ' , cmaxl (k, j ) 
kl-1 

read ( 5 , * , iostat-kl , err-2  77 ) cmaxl ( k , j ) 

279  write(6,*) 'INPUT  POR0S1  FOR  LAYER  ',j 
write(6,*) 'PRESENT  VALUE  IS  ' ,porosl (k, j ) 
kl-1 

280  read ( 5 , * , iostat-kl , err- 278)porosl(k,j) 

281  write (6,*) 'INPUT  CA1  FOR  LAYER  ',j 


write (6,*) 'PRESENT  VALUE  IS  ' ,cal(k,j) 
kl-1 

read ( 5 , * , iostat-kl , er r-2  8 1 ) ca 1 ( k , j ) 

282  write ( 6 ,  * ) ' INPUT  CB1  FOR  LAYER  ',j 
write (6,*) 'PRESENT  VALUE  IS  ',cbl(k,j) 
kl-1 

read ( 5 , * , ios ta t»kl , err-2  8  2 ) cb 1 ( k , j ) 
if (jr.gt.O)goto  435 

283  CONTINUE 

292  write(6,*)  'INPUT  MEAN  LENGTH  OF  SEGMENT  '.,k 
write(6,*) 'PRESENT  VALUE  IS  ',hlen(k) 
kl-1 

read ( 5 , * , iostat-kl , err-292 ) hlen (k) 
if (jr.gt.O)goto  435 
300  CONTINUE 

do  304  k-1,3 

302  write (6,*) 'INPUT  POS  NO.  ',k 

write (6,*)  'PRESENT  VALUE  IS  ',pos(k) 
kl-1 

read ( 5 , * , iostat-kl , err»3  0  2 ) pos ( k ) 

304  CONTINUE 

if ( jr.gt.o)goto  435 

400  write (6,*) 'INPUT  INTERNAL  ANGLE  OF  FRICTION  PHI' 
write(6,*) 'PRESENT  VALUE  IS  ',phi 
kl-1 

read (5 , * , iostat-kl , err*400 ) phi 

write (6,*) 'INPUT  REMOULDED  ANGLE  OF  FRICTION  PHIB 

write(6,*) 'PRESENT  VALUE  IS  ',phib 

kl-1 

read ( 5 , * , iostat-kl , err-4  0  0 ) phib 
if ( jr.gt. 0)goto  435 
405  write(6,*) 'INPUT  SOIL  COHESION' 
write(6,*) 'PRESENT  VALUE  IS  ',C 
kl-1 

read ( 5 , * , iostat-kl , err-4  05 ) c 
if (jr.gt. 0)goto  435 

410  write (6,*) 'INPUT  SOIL  SHEAR  MODULUS' 
write(6,*) 'PRESENT  VALUE  IS  'fgg 
kl-1 

read ( 5 , * , iostat-kl , err-4 10 ) gg 
if (jr.gt. 0) goto  435 

420  write(6,*) 'INPUT  DEPTH  OF  CONE  TIP' 
write(6,*) 'PRESENT  VALUE  IS  ',ZZ 
kl-1 

read ( 5 , * , iostat-kl , err-4  2  0 ) z  z 
if (jr.gt. 0)goto  435 

285  write(6,*) 'INPUT  NUMBER  OF  HOURS  OF  RAIN  ' 
write (6,*)  .'PRESENT  VALUE  IS  ' ,  ir 

kl-1 

read ( 5 , * , iostat-kl , err«2  8  5 ) ir 
if (jr.gt. 0)goto  435 

286  do  290  i-1, ir 

287  write (6,*) 'INPUT  PRECIPITATION  (m)  FOR  HOUR  ',i 
write (6,*) 'PRESENT  VALUE  13  ',precip(i) 

kl-1 

290  read ( 5 , * , iostat-kl , err-287 ) precip ( i ) 
if (jr.gt. 0)goto  435 


nonnn 


320  write ( 6 ,  * ) '  INPUT  NAME  OF  NEW  SEGMENT  FILE' 
kl-1 

answ-'y' 

read (5, *, iostat-kl, err-320) fname 
inquire ( file- fname , exist-f exist ) 
if (f exist) call  bmsg2(answ) 
if (answ. ne. 'y') goto  320 
open  ( 9 ,  f  ile-f  name ,  err* 3  2  0 ) 
rewind  9 

321  write ( 6 ,  * ) ' INPUT  NAME  OF  NEW  STORM  FILE' 
answ— 'y ' 

kl-l 

read ( 5, *, iostat-kl, err-321) fname 
inquire (f ile-fname, exist-f exist) 
if ( f exist ) call  bmsg2 ( answ) 
if (answ. ne. 'y') goto  321 
open (3 , f ile-fname, err-321) 
rewind  3 

322  write(6,*) 'INPUT  NAME  OF  NEW  INITIAL  MOISTURE  FILE 
kl-1 

answ*'y' 

read ( 5 , * , iostat-kl , err-322 ) fname 
inquire ( f ile-f name, exist-f exist) 
if ( f exist ) call  bmsg2 ( answ) 
if (answ.ne. 'y'Jgoto  322 
open ( 4 ,  f ile-f name, err-322 ) 
rewind  4 

323  write(6,*) 'INPUT  NAME  OF  NEW  SOIL  DESCRIPTION  FILE 
kl-1 

answ-'y' 

read ( 5 , * , iostat-kl , err-3  2  3 ) fname 
inquire ( f ile-fname , exist-f exist) 
if ( f exist) call  bmsg2 (answ) 
if (answ. ne. 'y') goto  323 
open ( 2 , f ile-f name , err»3  23 ) 
rewind  2 

324  call  wiew 
close  (9) 
close  (3) 
close  (4) 
close  (2) 

325  write(6,*) 'INPUT  ANY  NUMBER  TO  CONTINUE' 
read (5,*, iostat-kl , err-3  2  5 ) icheck 

goto  1 


THIS  SECTION  ALLOWS  YOU  TO  CHANGE  A  PARAMETER  VALUE 


430  write(6,*) 'INPUT  NAME  OF  SEGMENT  FILE  TO  BE  READ' 
kl-1 

read (5,*, iostat-kl , err-4  3  0 ) fname 
inquire ( f ile-fname , exist-f exist ) 
if ( .not. f exist) call  bmsgl 
if ( .not. f exist) goto  430 
open (9, f ile-fname) 
rewind  9 


431  write (  6 ,  * ) ' INPUT  STORM  FILE  NAME' 
kl-1 

read ( 5 ,  * , iostat-kl , err-4  3 1 ) f name 
inquire (f ile-f name, exist-f exist) 
if (.not. f exist) call  bmsgl 
if (.not. f exist) goto  431 
open (3 , f ile-fname) 
rewind  3 

432  write (6,*) 'INPUT  INITIAL  MOISTURE  FILE  NAME' 
kl-1 

read ( 5 , * , iostat-kl , err*4  3  2 ) f name 
inquire ( f ile-fname , exist-f exist ) 
if (.not. f exist) call  bmsgl 
if ( .not. f exist) goto  432 
open (4 , f ile-fname) 
rewind  4 

433  write(6,*) 'INPUT  SOIL  DESCRIPTION  FILE  NAME' 
kl-1 

read ( 5 , * , iostat-kl , err-4  3  3 ) f name 

inquire ( f ile-fname, exist-f exist) 

if (.not. f exist) call  bmsgl 

if (.not. f exist) goto  433 

open (2 , f ile-fname) 

rewind  2 

call  vreadl 

call  vread2 

call  vread3 

close (9) 

close ( 3 )  * 

close (4) 

close (2) 

iset-1 

k— 6 

435  write (6,*) 'PLEASE  SELECT  THE  IDENTIFYING  VALUE  OF  THE  PARAMETER' 
write (6,*) 'YOU  WISH  TO  CHANGE  FROM  THE  FOLLOWING  SERIES  OF  LISTS' 
write(6, *) '  ' 

write ( 6 , * ) ' 1 . METEOROLOGICAL  DATA ' 

write ( 6 , * ) ' 2 . PRECIPITATION  DATA ' 

write (6,*) '3. SOILS  DATA' 

write (6,*) '4. RUN  DEFINITION  DATA' 

write (6 , *) ' 5 . SAVE  FILE ' 

write (6, *) '6. EXIT  TO  MAIN  MENU' 

kl-1 

read ( 5 , * , iostat-kl , err-4  3  5 ) kr 
goto (501, 502 , 503 , 504,320, 1) kr 
if (kr.gt.4)goto  1000 

501  write(6,*) 'CHOOSE  FROM  THE  FOLLOWING  PARAMETERS' 

write (6,*) '1. PRECIPITATION  VALUES' 

write ( 6 , * ) ' 2 .  COARSE  ITERATION  TIME  INTERVAL ' 

write (6,*) '3.  FINE  ITERATION  TIME  INTERVAL' 

write (6,*) '4.  OPTION  FOR  PRINT  OF  SEGMENT  GEOMETRY' 

write (6, *) '5.  OPTION  FOR  CALC.  OF  100%  AND  75%  SATURATED  AREAS' 

write (6,*) '6. STONE  CONTENT  OF  EACH  LAYER' 

write (6,*) '7.  SEGMENT  NUMBER' 

write (6, *) '8.  INCREMENTS  ON  SLOPE' 

write (6,*) '9. NUMBER  OF  SEGMENTS' 
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write (6,*) '10.  NUMBER  OF  SOIL  LAYERS' 
write(6,*) '11.  SEGMENT  DIMENSIONS' 
write (6,*) '12.  ROUTING  DELAY' 
write (6,*) '13.  SEGMENT  DISTANCES' 
write (6,*) '14. ***EXIT***' 


kl-1 

read(5,  *,  iostat-kl, err-501)  jr 

goto (502 ,50,55,71,120,198,125,215,130, 

&  140,241,145,251,435}jr 
goto  l 

502  write (6,*) 'CHOOSE  FROM  THE  FOLLOWING  PARAMETERS' 
write ( 6 , * ) ' 1 .  NUMBER  OF  HOURS  OF  RAIN' 

write (6, *) '2 .  ALL  PRECIPITATION  VALUES' 
write (6,*) '3.  ONE  PRECIPITATION  VALUE' 
write (6,*) '4.  EXIT  TO  MENU' 

kl-1 

read ( 5 , * , iostat-kl , err-5  0  2 ) j  r 
goto (285, 286, 505, 435) jr 
goto  502 

505  write (6,*) 'WHICH  HOUR  OF  PRECIPITATION  DO  YOU  WISH  TO  ALTER?' 
kl-1 

read ( 5 , * , iostat-kl , err-505 ) i 

write (6,*)'  INPUT  PRECIPITATION  (m)  FOR  HOUR  ',i 

write (6,*) 'PRESENT  VALUE  IS  ',precip(i) 

kl-l 

read ( 5 , * , iostat-kl , err-505) precip ( i ) 
goto  502 

503  write (6,*) 'CHOOSE  FROM  THE  FOLLOWING  PARAMETERS' 

write ( 6 , * ) ' 1 .  INTERNAL  ANGLES  OF  FRICTION,  PHI  AND  PHIB' 

write (6,*) '2.  SOIL  COHESION' 

write (6,*) '3.  SOIL  SHEAR  MODULUS' 

write(6, *) '4.  DEPTH  OF  CONE  TIP' 

write ( 6 , * ) ' 5 .  NUMBER  OF  SEGMENTS ' 

write(6, *) '6.  EXIT  TO  MENU' 

kl-1 

read ( 5 , * , iostat-kl , err-503 ) j  r 
goto (400, 405, 410, 420, 10, 435)  jr 
goto  503 

504  write (6,*) 'CHOOSE  FROM  THE  FOLLOWING  PARAMETERS' 

write (6,*) '1.  YI' 
write (6,*) '2.  DEPMAX' 
write(6, *) '3 .  XI' 
write (6, *) '4.  EXIT  TO  MENU' 

write (6,*) '  INPUT  SEGMENT  NO.' 
read (5 , * , iostat-kl , err-504 ) k 
write (6,*)'  INPUT  N  NO.' 
read ( 5 , * , iostat-kl , err-504 ) n 
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kl«l 

read ( 5 , * , iostat=kl , err-504 ) j  r 
goto (601 ,602 ,603, 435) jr 

601  write ( 6 ,  * )  '  INPUT  YI  VALUE  NO  ',n,'  SEGMENT  ',k 
kl-1 

read ( 5 , * , iostat-kl , err-504 ) y i ( n , k) 
goto  504 

602  write(6, *) '  INPUT  DEPMAX  VALUE  NO.  ',n,'  SEGMENT  NO.  ',k 
write ( 6 , * ) ' PRESENT  VALUE  IS  ' ,depmax(n,k) 

kl-1 

read ( 5 , * , iostat-kl , err-504 ) depmax ( n , k) 
goto  504 

603  write (6, *) '  INPUT  XI  VALUE  NO.  ',n,  'SEGMENT  NO.  ',k 
write(6,*) 'PRESENT  VALUE  IS  ',xi(n,k) 

kl-1 

read ( 5 , * , iostat*kl , err-504 ) xi ( n , k) 
goto  504 
c 
c 

100  format (lx, 'THIS  PART  OF  THE  PACKAGE  SETS  UP  AN  INPUT  FILE') 
110  FORMAT (/IX, 'DO  YOU  WISH  TO  CONTINUE?  y  OR  n') 

C 

C 

C 

1010  nl-999 
1000  return 
end 


C*** **************************** ******  ***************** 

c 

c  SUBROUTINE  VOUTA 
c 

Q****************************************************** 

c 

subroutine  vouta 
C 
c 

c  This  subroutine  prints  out  the  segment  geometry, 
c  run  information  and  hourly  soil  moisture  information 
c  for  the  entire  segment. 

c  Original  by  Bernier,  1982 ;Whitelaw,  1988. 
c  Adapted  by  Cochrane,  1988. 
c 
c 

c  'vouta'  is  called  by  'vcntl' 
c 

c  'vouta'  uses  functions  'vci' 
c  'vxmatrx' 

c 
c 

include  'spec.vgeom' 
include  'spec.vphys' 
include  'spec.vindex' 
include  'spec. water' 
include  'spec.vtime' 
include  'spec.vtitle' 
include  'spec.vkgr' 
include  ' spec . vcom2 ' 

C 

dimension  pmc(5,16,5) ,satvol(5) , sv75pc(5) ,totbl(5) , 

2  totsm(5) ,total(5) ,totop(5) ,totbot(5) ,change(5) , 

3  error ( 5 ) , totsmp ( 5 ) 
dimension  rci(3,16,5) 

C 

entry  vouta 1 
C 

WRITE  (7,  100) 

WRITE  (7,  110) 

WRITE  (7,  120) NAME 
WRITE  (7,  110) 

WRITE  (7,  130) MNO 
WRITE  (7,  110) 

WRITE  (7,  140) IDAY, IMONTH, I YEAR 
WRITE  (7,  110) 

WRITE  (7,  150)  NOTE 
WRITE  (7,  110) 

WRITE  (7,  100) 

100  FORMAT ('  ',100 ('*')) 

110  FORMAT ('  * ' , 98  ( '  '),'*') 

120  FORMAT ( '  *',20('  '),15A4,18('  '),'*') 

130  FORMAT ('  *',20('  '), 'TOTAL  NUMBER  OF  SEGMENTS 14 

*  ,49('  '),'*') 

140  FORMAT ('  * ' ,  20 ( '  '),' DATE  OF  EVENT  (DAY/MONTH/ YEAR) ; ' 

*  ,I3,'/',I2,'/',I2,38('  '),'*') 

150  FORMAT ( '  *',20('  '),18A4,6('  '),'*') 


RETURN 


entry  vouta2 


do  112  k*l,kno 
C 

WRITE  (7,  200) ISGNO 
write  (7,  205) k 
WRITE  (7,  210) 

WRITE  (7,  220) (N,N*1, 16) 

WRITE  (7,  230) (J, (avele (k, n, j ) ,N*1,16) ,J=1,JN0) 

WRITE  (7,  240) 

WRITE  (7,  220)  (N,N*1,16) 

WRITE  (7,  230) (J, (avslp(k,n, j) ,N-1,16) ,J«l,JNO) 

WRITE  (7,  250) 

WRITE  (7,  220) (N,N-1,16) 

WRITE  (7,  230) (J, (avdep(k,n, j) ,N=1,16) ,J~l,JNO) 

WRITE  (7,  260) 

WRITE  (7,  220) (N,N=1,16) 

WRITE (7 / 230) (J, (avslln (k, n, j ) ,N-1,16) ,J=l,JNO) 

WRITE (7 , 270) 

WRITE (7 , 220) (N,N»1,16) 

J-l 

WRITE  (7,  230)  J, (avwid(k,n) ,N=1, 16) 
if(k.eq.kno)  goto  112 
write (7 , 275) k, k+1 
write(7,220) (n,n-l,16) 

write(7,230) (j, (asslp(k,n, j) ,n*l,16) , j-l, jno) 

112  CONTINUE 

210  FORMAT (///'  ELEVATION  OF  EACH  SOIL  ELEMENT  (METRES)') 

220  FORMAT ( '  J;  N', 14, 1518) 

230  FORMAT ( '  ' , 12 , IX, 16F8 . 2 ) 

240  FORMAT (/'  SLOPE  OF  EACH  SOIL  ELEMENT  ') 

250  FORMAT (/'  DEPTH  OF  EACH  SOIL  ELEMENT  (METRES)  ') 

260  FORMAT (/'  SLOPEWISE  LENGTH  OF  EACH  SOIL  ELEMENT  (METRES)  ') 
270  FORMAT (/'  WIDTH  OF  EACH  INCREMENT  (METRES)  ') 

200  format (/lx, 'HYDROGRAPH  SIMULATION  FOR  SEGMENT  No  ',13) 

205  format (IX,'  COMPONENT  No  ' , i3) 

275  format (/lx, 'SLOPES  BETWEEN  COMPONENT' , i3 , '  AND' , i3) 

RETURN 

C 

C 

C 

entry  vouta3 
C 
C 

ix-ixm+1 

C 

do  10  k-l,kno 

satvol  (k)  =»0. 
sv75pc(k)~0. 
do  20  j»l,jno 

ni-nlimk(k) 
do  20  n-l,ni 

delpbv(k,n, j)  -  smcvol(k,n, j)  /  awol(k,n,j) 
pmc(k,n, j)-delpbv(k,n, j)/poros(k,n, j) 


if  (pmc (k, n, j ) . ge . 0 . 750)  sv7 5pc  (k)  «sv75pc (k)  +awol  (k,  n ,  j ) 
2  *poros(k,n, j) 

20  if  (pmc(k,n,  j)  .ge.0.998)  satvol(k)=satvol(k)+awol  (k,n,  j  ) 

2  *poros(k,n, j) 

poten(k,n, j)-vxmatrx(k,n, j ,pmc(k,n, j) ) 

10  CONTINUE 


do  28  k*l,  5 

totbl  (k)  =*0 . 
totsm (k)«0. 
total (k)«0. 
totop(k)-0. 
totbot (k)-0. 
error (k)-0. 
satvol(k)-0. 
sv75pc(k)*0. 

28  CONTINUE 

do  30  k-l,kno 

ni-nlimk(k) 
do  35  n-l,ni 

totop ( k) -totop ( k) +smcvol ( k , n , 1 ) 
totbot (k) -totbot (k) +smcvol (k, n , jno) 
do  35  j«l,jno 

totbl  ( k)  -totbl  ( k)  +awol  ( k ,  n ,  j ) 
totsm ( k) -tot si ( k) +smcvol ( k , n , j ) 

35  CONTINUE 

if (totbl (k) .eq.0.)vrite(7,12345)k,n, j 
12345  format ( ' TOTBL  -  0.  k,n,j  -  ',3i3) 
total (k)— totsm (k) /totbl (k) 
change (k) - (totsm (k) -totsmp (k) ) / ( -3 . 6 ) 
totsmp (k) -totsm (k) 
error (k) -ef low (k) -change (k) 

30  CONTINUE 


write(7,500) 
write (7, 505) it, q 

write (7, 510) css, (flow(k,l) ,k=l,5) , (totbl (k) ,k-l,5) 
write(7,515)pnet, (flow(k,2) ,k=l,5) , (totsm(k) ,k=l,5) 
write(7 , 520) (flow(k, 3) ,k-l,5) , (totop(k) ,k-l,5) 
write (7, 525) (flow(k,4) ,k-l,5) , (totbot (k) ,k=l,5) 
write(7,530) (flow(k,5) ,k-l,5) , (error(k) ,k=l,5) 
write(7,540) (satvol(k) ,k-l,5) 
write(7,545) (sv75pc(k) ,k-l,5) 


if (mod(it,npo) .ne.0)  goto  50 
write(7,550) (n,n-l,10) 

write (7, 555) ( (j , (pmc(k,n, j) ,n=l, 10) , j-1, jno) , k=l,kno) 
write (7,*) ( ( (pmc(k,n, j) ,n-l,10) , j-1, jno) ,k=l,kno) 
abai-0.0 
do  1000  n«l,10 

poten(l,n,l)-vxmatrx(l,n,l,pmc(l,n, 1) ) 
write ( 7 , * ) poten ( 1 , n , 1 ) 
rci(l,n,l)-vci(poten(l,n,l) ) 

abai-abai+(rci(l,n, 1) *avslln(l,n, 1) *avwid(l,n) ) 

1000  CONTINUE 


WM 


i 


abai= (abai/sgarea) 
write ( 12 , * ) abai 
50  CONTINUE 


500  format (/lx, 130 ('-')/) 

505  format (lx, i4, '  ##  ' , 'Q  ' , f9. 5, 3x, 'SS  OUTFLOWS  (l/s)',32x 

&  ' VOLUMES  (m3)') 

510  format ( lx, 7x, 'CSS  ' , f9 . 5, 3x, ' 1' , 5f9 . 4 , 2x, 5f8 . 2 , lx, 

&  '  TOTAL  VOL') 

515  format (lx, lx, 8x, 'P  ' , f 6 . 2 , 6x, ' 2 ' , 5f 9 . 4 , 2x, 5f8 . 2 , lx, 

&  '  WATER  VOL') 

520  format (lx, 2 3x, '3 ' , 5f9 . 4 , 2x, 5 (f7 . 1, lx) ,lx, '  TOP  VOL' ) 

525  format (IX, 2 3x, '4 ' , 5f9 . 4 , 2X, 5 (f7 . 1, lx) ,1X, '  BOTVOL') 

530  format ( lx, 23x, '5' , 5f9 . 4 , 2x, 5 ( f7 . 1, lx) ,lx, '  LOSS(l/s)') 

540  format (lx, 71x, 5 (f7 . 3 , lx) , lx, '  VOL  SAT') 

545  format(lx,71x,5(f7.3,lx) ,lx, '  VOL>  75%S ' ) 

550  format (/3x, '  ',5x,'J  ?  N' , 10 (i3 , 3x) ) 

555  format (3x, '##' , 4x, i2 , 4x, lOf 6 . 3) 


return 

end 


nnnn  o  no 
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c 

C**************************** ******** *******  ********** 

c 

subroutine  voutb 
C 
c 

c  This  subroutine  calculates  the  flow  of  water  from  the 
c  segment  to  the  channel  system  and  lags  it  accordingly, 
c  Original  by  Bernier,  1982 ;Whitelaw,  1988. 
c 
c 

c  'voutb'  is  called  by  'vcntl' 

c 

c 

INCLUDE  ' spec . vgeom ' 

INCLUDE  'spec.vtime' 
include  ' spec . vwater ' 

C 

dimension  tflow(500) , rain (500) ,ecum(500,5) 

C 

entry  voutb 1 ( i sgno , i t ) 
do  10  k»l,5 

10  ecum(it,k)  -  eflow(k) 

C 

RETURN 


entry  voutb2 ( it , qi , prepi , prec) 
write(7,*) ' ******0UTB2 ******** ' 

INDEX-IT+ ( IROUT/ 6  0 ) 

IINDEX-INDEX+1 
LAG-MOD ( IROUT ,60) 

TFLOW ( INDEX) — TFLOW ( INDEX) + ( 1 . -FLOAT ( LAG) / 60 . ) *QI 
TFLOW ( I INDEX) -TFLOW ( I INDEX ) + ( FLOAT ( LAG) / 60 . ) *QI 
RAIN (IT) -prec 

♦♦♦Convert  QI  back  to  m3  before  dividing  by  SQKM  *** 
CMSK— (QI*3600 . )/1000. 

IENTRY-2 
INDEX— IT 


100  IF ( INDEX. GT.l) GOTO  110 

RNFALL-0 . 

ITIME-0 . 

START-9999. 

STRFLO— 0. 

STORM— 0 . 

110  RNFALL-RNFALL+ ( (RAIN (INDEX) *SQKM*1000000) *0.01) 

IF ( RAIN ( INDEX ) .EQ.0. ) GOTO  120 
IF(START.NE.9999. )GOTO  120 
START-AMIN1 (STRFLO , CMSK) 

IITIME-INDEX 
STRFLO— CMSK 

IF (BASFLO.LE. CMSK) GOTO  130 
START-9999 . 


mm 

•  • 


•  -  %• >• 


120 


★  ★  ★ 


ITIME-0 . 

BASFLO-O. 

GOTO  140 

C  ***Convert  OMSK  to  nun  before  summing 
130  STORM— STORM+ (CMSK* 1000) 

140  IF ( IENTRY . EQ . 2 ) GOTO  400 

GOTO  300 
C 
C 

entry  voutb3 ( it , mno ) 
write (7,*) '++++++OUTB 3 ++++++++ ' 
write (7 , *) /aaaaaa0UTB3aaaaaaaaa/ 

C 

IIDAY-0. 

ITIME-0 
WRITE (7 , 601) 

WRITE (7, 6015) 

DO  385  INDEX-1, IT 
I J-IMIN+ ( INDEX*  6  0 ) 

IMM— MOD ( I J , 60 ) 

IHH-IJ/60 

ITIME— (IHOUR+IHH) *100+IMM 
ITIME-ITIME- (2400*11 DAY ) 

IF (ITIME. GE. 2400) IDAY-IDAY+1 
IF  ( ITIME .  GE .  2 4 00 )  I IDAY-IIDAY+ 1 
I ENTRY- 3 
GOTO  100 

300  CONTINUE 

write(7,602) index, rain (index) , (ecum( index, k) ,k=l,5) ,tflow(index) 
385  CONTINUE 
400  CONTINUE 
C 

RETURN 

C 

601  format (//'  INDEX  RAIN',2x, 

&  ' -  SUBSURFACE  OUTFLOWS  -  TOTAL') 

6015  format (10X, ' (CM) • ,15x, 'LITRES  /  SEC' , 14x, ' (ROUTED) '/) 

602  format(3x,i3,2x,f6.2,6f8.4) 

C605  FORMAT (/, '*THE  STORMFLOW  IN  INCHES  OF  WATER  IS',F15.4) 

C606  FORMAT (/, '*THE  RAINFALL  IN  INCHES  OF  WATER  IS  ',F15.4) 

C607  FORMAT ( ' 1 ' , '  SEGMENT  STORMFLOW (IN)  REPONSE(%)  ') 

C608  FORMAT (15 , 5X, F15 . 4 , 5X, F14 . 3 ) 

C 


c***************************************************** 

c 

c  SUBROUTINE  VREAD 
c 

c***************************************************** 

c 

subroutine  vread 
C 
c 

c  This  subroutine  reads  the  input  data  files  for  VSAS2. 
c  These  are  (l)segment,  (2) storm,  (3) initial  moisture, 
c  and  (4) soil  strength  characteristics, 
c  Original  by  Bernier,  1982 ;Whitelaw,  1988. 
c  Adapted  by  Cochrane,  1988. 
c 
c 

c  'vread '  is  called  by  'vcntl' 
c  'vmenu' 

c 
c 

include  'spec.vgeom' 
include  ' spec.vphys' 
include  'spec. vindex' 
include  'spec. water' 
include  'spec.vtime' 
include  'spec.vdata' 
include  'spec.vtitle' 
include  'spec.vcom2' 
include  'spec.vkgr' 
include  'spec.vcone' 
c 

entry  vreadl 
C 

read (9,50) mno , name 
50  FORMAT (i3,15a4) 

read(9,60)note 
60  FORMAT (18a4) 

read (3,100) iday , imonth , iyear 
100  FORMAT ( 3 i2) 

read (9,91) krep , lrep , npo , nouta , ntmp 
91  FORMAT (5i3) 
i»0 

10  i-i+1 

iii*i+7 

read (3 , 110) (precip(ii) , ii=i, iii) 

110  FORMAT ( 8  f 5 . 3 ) 

if (precip(i) .ge.9. )  return 

C  The  9. card  marks  the  end  of  the  precipitation  deck 
i-iii 
goto  10 
C 
C 

c 

c 

entry  vread2 
C 

read (9, 120) isgno,kno, jno, irout, sgarea 
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120  FORMAT (3 ( i2 , 2X) ,I3,2X,F6.0) 

if ( kno . ge . 99 ) return 

read (4, 90) ( ( (pbv(k,n, j ) ,n-l,10) , j-1, jno) ,k=l,kno) 

90  FORMAT (6x, 10f6. 3) 

read (9,130) clevel , (stonec(j) , j-1, jno) 

130  FORMAT ( 6f 5 . 3 ) 

read(9, 135) (nlimk(k) ,k»l,3) 

135  FORMAT ( 3 i3) 

do  139  k«l,kno 
nn  -  nlimk(k) 

read (9, 140) (yi(k,n) ,n«l,nn) 
read (9 ,140) (depmax(k,n) ,n-l, nn) 
read(9,140) (xi(k,n) ,n-l,nn) 

139  CONTINUE 
140  FORMAT ( lOf 7 . 2 ) 
do  144  k«l,kno 

read(9, 145)xvidth(k,  1)  ,xwidth(k,2)  ,horiz(k,l)  ,honz(k,2) 

144  CONTINUE 
145  FORMAT (4f7 .2) 
j j-jno-1 

read (9,150) adepth , (bdepth(j) , j-1, jj) , atest , cdepth 
150  FORMAT(7f6. 3) 

read(9, 170)  al,a2, (roffst(k) ,k-l,kno-l) 

170  FORMAT (f 5 .1, f 10 . 1, 4f7 . 2) 

read (9, 180) (pos(k) ,k-l,3) , (hlen(k) ,k«l,kno) 

180  FORMAT (3f4.1,5f7.2) 

do  300  k«l,kno 

read (9, 190)  (cmaxl(k,  j)  ,porosl(k,j)  ,cal(k,  j)  ,cbl(k,;j)  ,D*l,3no) 
if (pos(l) .ge.l. )  goto  300  . 

read (9, 190)  (cmax2(k,  j)  ,poros2(k,  j)  ,ca2(k,  j)  ,cb2(ko)  ,3=1, jno) 
if (pos(l) .ge.l. )  goto  300 

read(9, 190) (cmax3(k,j) ,poros3(k,j) ,ca3(k, j) ,cb3(k,3) ,j=l,3no) 
190  FORMAT ( f 12 . 6 , f 12 . 6 , el2 . 3 , f 12 . 6) 

300  CONTINUE 
C 

return 

c 

c 

c 

entry  vread3 

read ( 2 , * ) phi , c , phib , gg , z  z 
C 

aal-1.48 
d-0.799 
alpha-15 . o 
gamma-0 . 067 
ua— 17 . 0 
return 
end 


f 


c 

C****************** *********************** *********** 

c 

C  SUBROUTINE  VSURFLO 
C 

c**************************************************** 

c 

subroutine  vsurf lo ( al , a2 , pnet , css ) 

C 

c 

c  This  subroutine  calculates  the  surface  runoff  in  VSaS2. 
c  Original  by  Bernier,  1982 ;Whitelaw,  1988. 
c 
c 

c  'vsurflo'  is  called  by  'vcntl' 

c 

c 

C  al-channel  a2~imp.  surface  area 
C 

cl«al*pnet/l00 . 
of*pnet*a2/100 . 
css»ci+of 
c 

return 

end 


o  o 


C*************************************************** 

c 

C  SUBROUTINE  WIEW 
c 

c********** ******** ********** **************** ******* 
c 

subroutine  wiew 
c 
c 

c  This  subroutine  prints  out  the  VSAS2  input  files 
c  created  or  edited  in  vmenu. 
c  Created  by  J.E.  Cochrane 

c  at  the  Geography  Department,  University  of  Bristol,  England, 
c  December,  1987. 
c 
c 

c  'wiew'  is  called  by  'vmenu' 

c 

c 

include  'spec.vgeom' 
include  ' spec . vphys ' 
include  ' spec . vindex ' 
include  'spec. water' 
include  'spec.vtime' 
include  'spec.vdata' 
include  ' spec . vcom2 ' 
include  'spec.vkgr' 
include  'spec.vcone' 


wr ite ( 9 , 5 0 ) mno , name 

write (9,60) note 

write (3,70) iday , imonth , iy ear 

write (9,80) krep , lrep , npo , nouta , ntmp 

ival-(int((ir/8)+l)) 

ival»(ival*8)+l 

precip ( ival ) -9 . 0 

ii-0 

10  ii-ii+l 
ir-ii+7 

write(3,90) (precip(i) , i-ii, ir) 
if (precip (ii) .It. 9. ) goto  10 
write (9,110) isgno , kno , j  no , irout , sgarea 
write (4, 120) ( ( (pbv(k,n, j) ,n*l, 10) , j=l, jno) ,k=l,kno) 
c  write(9,130)clevel, (stonec(j) , j=l, jno) 
write(9,130)clevel, (stonec(j) , j=l, jno) 
write(9,140) (nlimk(k) ,k=l,3) 
do  142  k*l,kno 
nn-nlimk(k) 

write(9,150) (yi(k,n) ,n=l,nn) 
write(9,150) (depmax(k,n) ,n=l,nn) 
write(9,150) (xi(k,n) ,n«l,nn) 

142  CONTINUE 

do  155  k-l,kno 

write(9,160)xwidth(k,l) ,xwidth(k,2) ,horiz(k,l) ,horiz(k,2) 
155  CONTINUE 
jj-jno-1 
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mtxm 


write(9,170)adepth, (bdepth(j) , j-1, j j) , atest,cdepth 
write(9,180)al,a2, (roffst(k) ,k*l,kno-l) 
write(9, 190) (pos(k) ,k*l,3) , (hlen(k) ,k=l,kno) 
do  195  k«l,kno 

write(9,200)  (cmaxl(k, j)  ,porosl(k,  j)  ,cal(k,  j)  ,cbl(k, j)  , j=l, jno) 
if (pos(l) .ge.l.Jgoto  195 

write(9,200) (cmax2(k,j) ,poros2(k, j) ,ca2(k, j) ,cb2(k, j) , j=l,jno) 
if (pos(l) .ge. 1. )goto  195 

write (9, 200) (cmax3 (k,  j) ,poros3 (k,  j ) , ca3 (k,  j ) ,cb3 (k, j ) , j=l, jno) 
write (9,*) '019999999999999999999999999999999999999999' 

195  CONTINUE 

write(2,*)phi,c,phib,ggf  zz 


50  format ( i3 , 15a4 ) 

60  format (18A4) 

70  format (312) 

80  format (5i3) 

90  format(8f5.3) 

110  format(3(i2,2x) ,i3,2x,f6.0) 

120  format(6x,10f6.3) 

130  format(6f5.3) 

140  format(3i3) 

150  format(i0f7.2) 

160  format (4f7. 2) 

170  format(7f6.3) 

180  format ( f  5 . 1 , f 10 . 1 , 5f 7 . 2 ) 

190  format(3f4.1,5f7.2) 

200  format  (f  12 . 6 ,  f  12 . 6 ,  f  12 . 3 ,  f  12 . 6) 


return 

end 


o  o 


C**************************************** *********** 

c 

c  FUNCTION  VXMATRX 
c 

c***** ********************************************** 

c 

function  vxmatrx(k,n, j ,pb) 

C 

c 

c  This  function  calculates  the  matric  potential 
c  according  to  Cambell ' s  method, 
c  Original  by  Bernier,  1982;  Whitelaw,  1988. 
c 
c 

c  'vxmatrx'  is  called  by  'vdrain' 
c  'vouta' 

c 
c 

include  ' spec . vphys ' 
include  ' spec . vindex ' 


cmult  «  ( (pb/poros(k,n, j) )**cb(k,n, j) ) 
xmat  -  (-1.)  *  ca(k,n,j)  *  (  1.  /  cmult  ) 
vxmatrx-aminl ( o . , xmat) 

C 

return 

end 


I  Compile  with  FORTRAN  77  compiler  according  to.- 

f 77  -c  *.f 

f77  -o  master  *.o  -lnag 

Notes:  'lnag'  is  the  NAG  routine  option 

'master'  will  be  the  file  to  be  run  In  section  10 


